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Avant-propos 


Vous trouverez dans ce livre plus de 199 programmes (essentiellement des 
jeux), rédigés en Basic, pour l'ordinateur individuel ORIC-ATMOS. La 
plupart de ces programmes seront d’ailleurs utilisables sans grande mo- 


dification sur l’ORIC 1. 


Les programmes proposés sont très courts, et l’ordre dans lequel ils sont 
présentés n’est bien évidemment pas arbitraire : il s’agit d’initier le lecteur, 
à travers la réalisation et l’utilisation de programmes de jeux de bonne 
qualité, à la connaissance et à la maîtrise progressive de cet outil extraor- 
dinaire qu’est un ordinateur individuel. 


La brièveté des programmes proposés permettra de les taper facilement, 
sans risque d’erreur. Vous pourrez bien sür les utiliser comme base pour 
la réalisation de jeux plus performants. 


Les programmes sont abondamment commentés pour vous aider à 
comprendre leur fonctionnement, et les pages de présentation vous per- 
mettront de retrouver facilement les caractéristiques propres des instruc- 
tons Basic qu’ils utilisent. 


Les programmes n'’utilisent pas toutes les particularités d’un appareil 
comme l'ORIC, par ailleur très bien détaillées dans le manuel de base. 


Vous trouverez, à la fin de chaque texte de présentation, quelques sugges- 
tions pour des améliorations possibles, ou des modifications, qui pour- 
raient rendre le jeu proposé plus attrayant, plus performant ou plus 
complet. 


Organisation de 
l'ouvrage 





Les jeux sont classés par ordre de difficulté croissante, suivant 5 niveaux : 
e Le niveau 1 permet l'étude des instructions élémentaires du langage 


BASIC : LET (optionnel ici), PRINT, INPUT, IF..THEN, 
FOR...NEXT, GOTO, GOSUB, ON...GOTO, ON...GOSUB. 


e Au niveau 2, on utilisera les instructions de confection et de manipu- 
lation des éléments d’un tableau, et de recherche d’un élément dans 


une chaîne : DIM, R(1), MID$, READ, DATA. 


e Au niveau 3, ôn utilise la panoplie complète des instructions de trai- 
tement des chaînes de caractères, et les instructions permettant l’affi- 
chage grand format et le graphique haute résolution : MID$, RIGHTS, 
LEFTS, HIRES, CURSET. 


e Le niveau 4 permet de faire connaissance avec le deuxième jeu de 
caractères (caractères semi-graphiques de type TELETEL), et intro- 
duit une instruction particulièrement utile dans les jeux interactifs : 


KEY$. 


e Enfin, le niveau 5 nous fait découvrir des instructions plus spéci- 
fiques : définition des caractères graphiques, identification d’objets sur 
l'écran, mise en mémoire directe et rappel : SCRN (x, y), PEEK, 
POKE... 


Chaque jeu est présenté d’une façon très systématique, par une courte 
description, suivie de l’étude détaillée de chacune des lignes importantes 
du programme. Après quoi les indications nécessaires au bon fonctionne- 
ment du jeu sont données, ainsi que quelques éléments pouvant conduire 
à des extensions ou des améliorations du j jeu proposé. 


Le programme, fonctionnant sur l’'ORIC-ATMOS, est ensuite reproduit, 
ainsi qu ‘un exemple d'exécution. Les listings ont été obtenus directement 
d’après les originaux de l’auteur, sur une imprimante matricielle, ce qui 
devrait garantir contre tout risque de disfonctionnement. L'emploi des 
minuscules a été systématiquement évité (on travaille en position CAPS). 


Niveau 1 


Nom du programme 


Thèmes et particularités 





Le nombre mystérieux 


Cube 
Chaud, froid 


Les allumettes 
Allumettes à plusieurs 


Calendrier perpétuel 
Bataille navale 


Golf 
Solfège 


Le jeu du 21 
Pair - Impair 


Devine un chiffre 
Le jeu de Wytthof 


Rebonds 
Jackpot 
Roulette 
Couloirs 
Echiquier 


Le jeu de la fève 
Jeu de l’oie aléatoire 


Jeu de déduction, pour un joueur. Plusieurs 
niveaux. 


Jeu de dessin : perspective sur un écran. 


Logique et hasard, pour un joueur. Plu- 
sieurs niveaux. 


Jeu de réflexion, contre l’ordinateur. 


Jeu de réflexion et de stratégie, pour plu- 
sieurs Joueurs. 


Confection d’un calendrier, mois par mois. 


Un seul navire à trouver, mais quelques 
. . ? 
particularités. 


Un parcours de 18 trous, pour un seul 
| P 
joueur. 


Apprenez le solfège à l’aide de votre ordi- 
nateur. 


Jeu de hasard, l’ordinateur tient la banque. 


Un jeu de casino en trois temps (un ou plu- 
sieurs Joueurs). 


Un jeu très facile, pour un ou plusieurs 
Joueurs. 


Un jeu de réflexion assez simple, pour deux 
joueurs. 


Un jeu d’adresse très visuel, pour un joueur. 
Jeu de hasard, pour un joueur. 

Une simulation élégante du jeu très connu. 
Un jeu de logique, à découvrir. 

Une base graphique pour vos propres créa- 
tions. 





Un jeu de réflexion, pour deux joueurs. 


Un très vieux jeu, revu et corrigé par l’or- 
dinateur, deux joueurs. 
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Instructions 
élémentaires 





Nous ne retiendrons ici que les instructions fondamentales, ou instructions 
de programmation ; beaucoup d’autres commandes, ou fonctions parti- 
cubères, seront utilisées à l’occasion, par exemple : 

— RND (1) pour obtenir un nombre aléatoire entre O et 1. 

— INT pour prendre la partie entière d'un résultat. 

— REM pour placer un commentaire. 

— END pour terminer un programme. 

etc. 


Les instructions fondamentales de la programmation, utilisées dès le 
niveau 1, et présentes dans pratiquement tous les programmes sont : 
LET (optionnelle) ; PRINT ; INPUT ; GOTO 0; ; IFi_: THENCU D; 
FOR .… NEXT ; GOSUB … RETURN. 

soit seulement sept instructions de base (et deux instructions dérivées) que 
nous allons maintenant examiner plus en détail. 


L’INSTRUCTION LET, OÙ INSTRUCTION D’AFFECTATION 





C’est l'instruction par excellence des langages de programmation évoluée, 
puisque son rôle essentiel est de permettre, pour le programmeur, une 
gestion transparente de la mémoire. Cela signifie, en pratique, que pour 
ranger une quantité en mémoire, par exemple 12, il n’est pas nécessaire 
de savoir dans quelle case de la mémoire on va la déposer : il suffit de lui 
affecter un nom autorisé, et c’est par ce nom que la quantité sera par la 
suite retrouvée et manipulée. 


— Si la quantité est numérique, le nom sera une simple lettre de l’al- 
phabet, ou un ensemble de plusieurs chiffres ou lettres, commençant 
obligatoirement par une lettre. 


— Si la quantité est alphanumérique, la même Ÿ s’applique pour le 


nom, qui devra cependant être suivi du symbole $, et la variable devra 
être écrite entre guillemets. 


Exemple : LET A1 = 12; la variable numérique A1 prend la valeur 12 
LET NOM $ = “RENOIR’ ; la variable alphanumérique 
NOM prend la valeur RENOIR. 


Sur l’ORIC, comme dans la plupart des Basic, le LET est devenu optionnel, 
aucune ambiguïté n'étant possible, on écrira donc : À = 12 ; NOM$ = 


“TOTO” : etc. 


L’INSTRUCTION PRINT, OÙ INSTRUCTION DE SORTIE (ECRAN): 





C’est une instruction de dialogue, qui permet à la machine d’afficher sur 
l'écran un texte, le résultat d’un calcul, ou une variable. C’est le seul moyen 
que possède l’ordinateur individuel pour faire connaître ses résultats. Ain- 
si, PRINT A1 provoque l'affichage de 12 (si l’on a fait auparavant A1 = 
12), PRINT A$ provoque l'affichage de BONJOUR (si l’on a fait A$ = 
“BONJOUR”). Utilisé après un effacement d’écran, le PRINT provoque 
l'affichage sur la 1" ligne, en haut, à gauche. 


Un certain nombre de paramètres peuvent être utilisés pour obtenir sur 

l'écran un affichage convenable : 

— PRINT TABI(N) provoque sur la ligne d'impression courante un affi- 
chage commençant à la énième colonne à partir de la gauche (9 < N < 
39). 

— Un ; (point virgule) en fin de PRINT permet soit d’enchaîner une autre 
impression sans répéter l'instruction PRINT, soit d'indiquer que la pro- 
chaine impression sera, en l’absence d'indication contraire, effectuée 
exactement à la suite de l’impression précédente. 


— La, (virgule) provoque une tabulation horizontale automatique pré- 
définie. 

Lors de la frappe, l'instruction PRINT pourra être abrégée en tapant ? 

(point d'interrogation). Lors d’une impression, tout nombre est précédé 

d’un signe ; mais le signe positif n’est pas affiché, un espace précédera 

donc automatiquement l’impression de tout résultat positif. 


Sur l’ORIC-ATMGS, on peut définir la ligne et la colonne d'écriture avec 
l'instruction PRINT a X, Y ; l'écran utilise 28 lignes de 49 caractères, la 
ligne du haut (inscription CAPS) n'étant pas accessible, on ne pourra 
utiliser que les lignes Q à 26. 

Par exemple : PRINT A 12, 21 ; “BONJOUR” affiche le mot BONJOUR 
à la 12° colonne de la 21° ligne. Les 2 premières colonnes sont en principe 
réservées aux instructions de papier et d’encre ; l’affichage commencera 
en général à la deuxième colonne. 


Une autre commande permet d’obtenir un affichage identique, malgré un 
fonctionnement légèrement différent : il s’agit de PLOT X, Y, A$. Ainsi 
PLOT 12, 21, “BONJOUR” affiche le mot BONJOUR à la 12° ligne de la 


21° colonne. 
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Avertissement important : ce livre, écrit pour l’'ORIC-ATMOS, fait fré- 
quemment usage de l’instruction PRINT A ; cette instruction n’est pas 
présente sur l’ORIC 1 ; elle pourra facilement, dans certains cas, être rem- 
placée par PLOT, comme indiqué précédemment. Sinon, il conviendra de 
définir la position du curseur, avant d’afficher. 


Ainsi PRINT A, X, Y ; “HELLO” sera remplacé sur ORIC 1 par : POKE 
# 269, X : POKE # 268, Y : PRINT “HELLO”. 


En dehors de ce cas, l’adaptation des programmes sur ORIC 1 ne devrait 
pas poser de problème. 


L’INSTRUCTION INPUT, OÙ INSTRUCTION D’ENTREE (CLAVIER) 








Cette instruction, qui provoque un arrêt et une attente de l’appareil, per- 
mettra d’entrer un nombre, ou un texte, qui sera affecté à la variable 
suivant l’ordre INPUT. Ceci est fait en mode conversationnel, c’est-à- 
dire au fur et à mesure des besoins ; en effet, lorsque l’ORIC rencontre 
une instruction INPUT, il s’arrête et vous rend la main ; on peut alors lui 
entrer une information de nature convenable (nombre ou texte), et lui 
signaler que cette entrée est terminée à l’aide de la touche RETURN, ce 
qui lui rendra la main. 


Si l'information entrée n’est pas de nature convenable (vous tapez, par 
exemple, un texte sur un INPUT X, qui attend un nombre), le message 
REDO FROM START est affiché, et l'appareil se remet en attente. 

Il est possible, comme pour le PRINT, d’afficher des messages avant l’en- 
trée de la variable. 

On pourra, par exemple, écrire : 


INPUT “VOTRE NOM, S’IL VOUS PLAIT” ; A$ 


L'INSTRUCTION GOTO OÙ INSTRUCTION DE RENVOI 
INCONDITIONNEL | 





Une des particularités du langage Basic, qui le rend facilement accessible, 
est que chaque ligne de programme doit être précédée d’un numéro, ces 
lignes étant ensuite exécutées par l’ordinateur individuel en séquences, 
dans le sens des numéros croissants. Pour diverses raisons, il pourra être 
nécessaire au cours du déroulement d’un programme, de ne pas suivre cet 
ordre séquentiel très rigide ; on utilisera alors l'instruction GOTO, qui 
permet de détourner le fonctionnement du programme de son cours nor- 
mal quitte d’ailleurs à le reprendre ensuite par un autre GOTO. Le renvoi 
doit, par ailleurs, impérativement se faire sur.un numéro de ligne existant 
dans le programme (GOTO 29, par exemple). 

Pour donner un peu de souplesse à cette instruction de renvoi, il existe une 
instruction très puissante, qui permet de renvoyer à n’importe quel nu- 
méro de ligne, selon la valeur d’une variable numérique : c’est l’instruc- 
tion ONt_: GOTO:__:; on écrira par exemple : 

ON X GOTO 199, 209, 390 et le renvoi sera fait à la ligne 199 si X vaut 
1, à la ligne 299 si X vaut 2, et 309 si X vaut 3. 


L’INSTRUCTION IF:_; THEN: 3 OÙ INSTRUCTION DE TEST 





On peut l’utiliser de deux façons : d’abord, en rupture de séquence condi- 
tionnelle, sous la forme : 


IFcondition = vraie) THEN|numéro de ligne. 


C’est l’usage le plus courant de ce test, qui permet de renvoyer à une autre 
partie de programme, si par exemple X = 9, ou si À = B, etc. Les opéra- 
teurs logiques NOT, OR ou AND peuvent d’ailleurs être utilisés dans 
l'écriture de la condition. 


On pourra aussi utiliser le test sous la forme : 
IF{condition| THEN{instruction| ; 


l'instruction présente à la suite de THEN peut être une affectation À = 
12, une impression PRINT A, une entrée INPUT B $, ou même un autre 
test IF &_: THEN 01 


On peut par exemple écrire : 


IF À > 3 THEN IF B < 7 THEN PRINT A + B 


L’INSTRUCTION FOR...NEXT, OU INSTRUCTION DE BOUCLES 





On est très souvent conduit, en programmation, à vouloir exécuter un 
nombre entier de fois une certaine suite d'instructions (par exemple, faire 
avancer un mobile de la case 6 à la case 29, etc.). Plutôt que d'utiliser un 
test et un renvoi, il sera préférable de faire appel à une boucle, la variable 
de boucle prenant ses valeurs dans les entiers ou les décimaux, et le pas 
de cette variable (c’est-à-dire la quantité dont elle augmente ou diminue 
à chaque passage) pouvant aussi prendre ses valeurs dans les entiers ou 
les décimaux. 

Ainsi, si l’on écrit : 
FOR I = 9 TO 29 STEP 2 

Instructions 


NEXTI 


Les instructions contenues dans la boucle seront exécutées pour I = Ÿ, 
pour I = 2, … et ceci jusqu’à I = 29, soit 11 fois. La variable I peut être 
utilisée pour faire un calcul dans la boucle, mais ne devra pas être modifiée 
dans la boucle. On peut, bien sûr, sortir de la boucle, avant I = 29, par un 
test portant une quantité quelconque. 


Si Le pas de la boucle (STEP) n’est pas précisé, il sera automatiquement 
pris égal à 1. 

Il est possible d’emboîter plusieurs boucles de noms différents, et d’omettre 
l'indication de la variable dans le NEXT. 
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L’INSTRUCTION GOSUB, OU INSTRUCTION D’APPEL, DE SOUS- 
PROGRAMME 





Lorsqu'une même suite d'instructions doit être exécutée plusieurs fois, et 
appelée à à partir de plusieurs endroits du programme, on évitera de la 
réécrire plusieurs fois. On la rédige une fois pour toutes, et on la place en 
dehors du programme proprement dit (en lui donnant, par exemple, un 
numéro de ligne supérieur au numéro de la dernière ligne du programme). 
Indépendamment des difficultés que l’on pourra rencontrer au niveau du 
nom des variables, lorsque l’on sera désireux d'utiliser cette séquence, il 
suffira de l’appeler par l’instruction GOSUB inuméro de ligne. Le pro- 
gramme ira dès lors “faire un détour” dans la partie du programme appelé, 
mais il ne pourra revenir et poursuivre son déroulement normal que si il 
rencontre dans le programme appelé une instruction RETURN, ou ins- 
truction de retour. 


Voici le schéma théorique de fonctionnement : 


PROGRAMME PRINCIPAL 
19 
2 
i A , > 1000 … 
Départ vers 1000 rt 
| 
1 
119  GOSUB 1909 
22 Retouraprès 10 + 1200 RETURN. 


1209 RETURN … 


; . 1000 … 
Départ vers 1000 De 1910 
239 GOSUB 1008 : 


Û Retour après 239 
l 
1 

600 

FIN DU PROGRAMME PRINCIPAL 


1900 
Le Sous-Programme n’est 


écrit qu’une fois, mais 
197: PEIURN appelé aussi souvent 


, 
Sous-Programme 1. que l’on veut. 


Un sous-programme pourra lui-même éventuellement appeler un autre 
sous-programme, et ainsi de suite. 

On peut aussi appeler un sous-programme de façon conditionnelle, en 
utilisant l’instruction ON__: GOSUB 1; 


Par exemple ON X GOSUB 1009, 2000, 3000 permettra d’exécuter le 
sous-programme placé en 1990 si X = 1, en 2009 si X = 2, en 3000 si X 
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Le nombre mystérieux 


REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : jeu de déduction pour un joueur. 
Difficulté du jeu : facile. 


LE JEU : 

On demande à l'ordinateur de fabriquer un nombre de n chiffres (avec n 
compris entre 1 et 7). 

On devra ensuite essayer de le découvrir, avec le moins d’essais possible, 


en recevant les seuls renseignements TROP GRAND ou TROP PETIT. 


LE PROGRAMME : 

La ligne 59 permet de fabriquer le nombre à deviner. 

Les entrées sont faites par les lignes 79 à 89. 

La ligne 99 teste si le résultat est exact. 

La ligne 199 signale un essai trop petit, et la ligne 119 un essai trop grand. 
Le compteur d'essais est en ligne 129. 

Les lignes 209 à 239 s’occupent de l’affichage du résultat, et de la gestion 
de la partie suivante. 


POUR JOUER : 

On lancera le programme par RUN. 

On obtient un premier affichage NOMBRE DE CHIFFRES auquel on ré- 
pond par un entier entre 1 et 7, suivi de RETURN. 

On obtient alors l’affichage ESSAI N°1, suivi de la question VOTRE NOM- 
BRE. 

On entre un nombre, et l’on presse RETURN. 

On obtient alors une réponse TROP PETIT, ou TROP GRAND, ou encore, 
si l’on a trouvé juste, un affichage de VOUS AVEZ TROUVEZ... EN... 
ESSAIS. Si le résultat n’est pas exact, on revient à ESSAI N° 2, et VOTRE 
NOMBRE. 

En fin de partie, on obtient la question AUTRE PARTIE (O/N) ; on ré- 
pond O pour faire une autre partie (suivi de RETURN). 

On peut arrêter à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On pourra imaginer de faire deviner au joueur autre chose qu’un chiffre 
(par exemple, un mot, en utilisant l’ordre alphabétique, ou encore autre 
chose….). 


REM LE NOMBRE MYSTERIEUX 

CLS 

INPUT'NOMBRE DE CHIFFRES :"3:M 
IF H>7 THEH RUH 
#SIMTE RHDE 13418" H+1 


J=1 
PRIHT:PRINT"'ESSAI HO, ":.1 
INPUT'VYOTRE NOMBRE :":M 
IF M=Xx THEH 264 
IF M<X THEN PRINT'TROP PETIT"':PING 
IF M>x THEN PRIHT'TEROF GRAND": PING 
J=.J+1 
PRIHT:PRIHT 
GOT 74 
CLS : EXPLODE 
PRIHT"'VOUS AVEZ TROUVE "ixi" EN "ii" ESSAIS" 
INPUT'AUTRE PARTIE <CO/H":Rg 


239 IF R$="0" THEN RUH 





HÜMERE DE CHIFFRES :T 3 


ESSAI NO 1 
ÉÜTRÉ HIONERE :T SOA 
TÉÛF FETI 


ES HO 
SOTRE, Honoré °F Sa 
TÉO 


40 7 
INMERÉ :7 96 
AC 


ESSAI t 
ATRE HN 
TÉQE GE 


ESSAI HO 4 
LOTRE HÜMERE 7 
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Cube 


REFERENCES : 

Difficulté de programmation : aucune. 
Catégorie de jeu : dessin. 

Difficulté du jeu : aucune. 


LE JEU : 

Le programme proposé se contente de réaliser à l’aide d'instructions PRINT 
une vue d’un cube en perspective cavalière. 

Il pourrait être par exemple incorporé à un jeu basé sur les capacités de 
reconnaissance des formes géométriques élémentaires. 


LE PROGRAMME : 

Le dessin du cube est réalisé par l’impression de points, en utilisant deux 
boucles : la boucle I (39-129), et la boucle I (139-189). 

Le nom de l’objet représenté est affiché en ligne 199 (ici : CUBE). 


POUR JOUER : 


Il suffit de lancer l’exécution par RUN, et de regarder. 


EXTENSIONS POSSIBLES : 

La haute résolution permettra d’avoir un tracé plus précis. 

On pourra imaginer un jeu utilisant des parallélépipèdes rectangles de 
différentes tailles, avec affichage par exemple des 3 côtés, et il faudrait 
trouver leur volume, etc. 


16 KEM CUBE 

24 CLS:PAFER # 

34 FOR I=2 TO 11 

44 PRIHTRF+I,Zi"," 

54 PRINTET Si", " 
PRIHTBF+I. 120," 
PRIHT@I.19:"," 
PRIHTRZ, F+li" 
PRINT@IZ, F+T:"," 
PRIHTR3,1:"." 
PRINT@19,1:"." 

HEAT I 

FOR I=2 T1 9 
PRIHTBI.11-1T:"." 
PRIHTE1G+T,411-1:5"." 
PRIHTRI,21-1:"." 
PRIHTRIG4+T,Z1-Ti"," 
HEXT I 
PRIHTRES, 18; "CUBE": FIHG 


GA 
FA 
24 
34 
14 
11 
12 
13 
14 
15 
16 
17 
18 
17 


DRASS 
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Chaud, froid 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

Un des plus vieux jeux du monde, toujours aussi pratiqué, mais cette fois, 
c’est l'ordinateur qui vous sert de partenaire : il va en effet cacher un objet 
à un certain emplacement d’une grille dont vous aurez vous-même choisi 
les dimensions. Pour le trouver, 1l ne vous donnera que quelques indica- 
tions sous la forme TU BRULES, ou C’EST FROID, etc. 

Vous devez réussir à découvrir l’objet caché, avec le moins d’essais pos- 
sible (votre score sera affiché en fin de partie). 


LE PROGRAMME : | 

Les lignes 49 et 59 définissent la position de l’objet. 

La ligne 99 cacule la distance par rapport aux deux coordonnées que vous 
avez entrées aux lignes 69-70. 

La ligne 190 regarde si vous avez gagné. 

Les lignes 129-139 normalisent la distance (qui doit avoir un sens, quelles 
que soient les dimensions de la grille initiale). 

La ligne 149 effectue le départ, s’il y a lieu, vers l’un des sous-programmes 


d'affichage. 
POUR JOUER : 


On lance le programme par l’ordre RUN, puis on introduit les dimensions 
de la grille (carrée) et l’on frappe RETURN. 

Dès l’affichage suivant (DONNEZ X), on entre la coordonnée X supposée, 
suivie de RETURN. 

On obtient ensuite l’affichage DONNEZ Y, et l’on entre Ÿ suivi de RE- 
TURN. 

On obtient en réponse un texte, qui est variable selon que l’on sera plus 
ou moins loin de l’objet cherché (cela va de COMPLETEMENT GELE à 
BRULANT). Lorsque l’on a trouvé, on obtient l’affichage du nombre d’es- 
sais effectués. 

ns sortir du programme avant la fin de la partie, il suffit de taper CTRL 
et C. 


EXTENSIONS POSSIBLES : 

Si l’on dispose de la couleur, il sera intéressant de trouver un moyen plus 
visuel pour symboliser la distance, par exemple des pavés allant du rouge 
au bleu, aux emplacements essayés. 

On peut aussi travailler dans un espace à trois dimensions, cacher plu- 
sieurs objets, etc. 


REM CHAUD .FROIC 
CLS:PAPER 6 
INPUT'DIMENSION DE LA GRILLE :":0 
#= INTC RMD 1 4D+1 
= INTE RHIN 1 S#D+1 2 
CLS 
INPUT'OONHEZ # :":4 
INPUT'OONHEZ %Ÿ :"36 
S=5+1 
TSABE 4 A + ABS Y-8 5 
IF T=4 THEH 6664 
PRIHNT'VOUS ETES "::PING 
MESINTE SGRE DIT 141 
IF H25 THEH H=S 
IF Té=SGRCD) THEN ON H GCOTO 1646,2464,3406,4@46, 596 
PRIHT'COMPLETEMENT GELE" 
GOTO 64 
G PRINT"'A PEIHE TIEDE" 
4 GOTO 66 
B PRINT"'TIECE" 
Q GOTO 69 


3484 PRINT'"CHAUC" 


4 GOTO 64 

@ PRIMNT"'TRES CHAUD" 

G GOTO 668 

& PRINT"BRULAHT" 

ä GOTO 68 

9 CLS:PAPER 7 

A PRINT'VOUS AVEZ TROUVE EH "35; COUPE" :EXPLODE 


— 
CM-LEKM< 


PLETEMENT 


{9 


»] 
[ee] 


ÉOMPLETEMENT 


OMPLETEMENT 


DO 330 +10 “ 
SNUSUN EN EN 


— 
a 


CO PLETEMENT 


PLETEMENT 


æ 
RIM -XM< 


n 


DO 30205 


TZ 


0 


de 
é # 
hi 


us 
in 


OMPLETEMENT 


E 
E 
E 
E 
E 
E 
E 
E 


al 


et D DE Ds 
m 


mm 
INRTENENTOININEMN 
Xmrocm —<XmM< 


+ 
an 
[es 
[=] 
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Les allumettes 


REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : contre l’'ORIC-ATMOS. 


Difficulté du jeu : moyenne. 


LE JEU : 

Le joueur devra en début de partie choisir une certaine quantité d’allu- 
mettes, ainsi que la prise maximum autorisée. Il décide ensuite s’il com- 
mence, ou s’il laisse commencer l'ORIC-ATMOS. Chacun prend à son tour 
autant d’allumettes qu’il le désire, dans la limite du nombre maximum 
autorisé. 

Celui qui prend la dernière allumette est considéré comme perdant. 


LE PROGRAMME : 

Le jeu du joueur commence en ligne 70. 

Celui de l’'ORIC-ATMOS commence en ligne 119. 

La ligne 89 contrôle la légalité du coup du joueur. 

La ligne 90 gère le changement de joueur. 

Le coup de l’ORIC-ATMOS est calculé dans une boucle non formelle, de 
la ligne 129 à la ligne 159. 

Le résultat est affiché par la ligne 1920. 

Si la partie est terminée, la ligne 1939 le détecte et envoie en ligne 2900, 
pour le message de fin. 


POUR JOUER : 

On commence l’exécution par RUN, et, à l’affichage du message NOMBRE 
TOTAL, on entre le nombre d’allumettes, suivi de RETURN. Puis on entre 
la prise maximum autorisée, suivie de RETURN. Si le joueur veut 
commencer, il frappe ensuite Ÿ ; sinon il frappe 1, puis RETURN. 

Après chaque coup, le nombre d’allumettes restantes est affiché, et l’ORIC- 
ATMOS affiche VOUS RETIREZ lorsque c’est au joueur de prendre. 
Celui qui prend la dernière allumette a perdu. 


EXTENSIONS POSSIBLES : 

On pourra bien sûr envisager un affichage graphique couleur plus spec- 
taculaire, imaginer de laisser le hasard choisir le nombre d’allumettes et 
la prise maximum, etc. 


124 
134 
14% 
154 
244 
214 
224 


RE LES ALLUMETTESZ 
CLS 

IHPUT'HOMERE TOTAL :":H 
INPUTUPRISE MAXIMUM "GT 

IHPUTMQUT COMMENCE € VOUS :@ + MOT:14 :"30 
IF Dzi THEH 114 

INPUT"YQUS RETIREZ :":P 

IF PEYINTCPS OR Pé1 OR P2H THEN 7 
D=1 

PING:GOTO 1444 

S=l+l 

TR MS 6 TC 

IF TSINHTOT: THEH 246 


SaS-C 
F<ABSéS-[ 


D=G:PRIHTMJIE RETIRE "3: EAP: HMAIT 54 


1698 FRINT F 

1414 H=H-F 

1424 PRINT'IL EH RESTE ":H:MAIT 1564 
1434 IF Ne=G THEH 244 

1444 GOT 64 

2844 CLS :PAFER 6 


2414 IF Di THEH PRINT'J'AI GAGHE" EAP: AP: ZAF 


2424 IF Dé THEM PRINT"'ERAVO : PTHG 


U 


mim Cm 


€ 


Tnt 


I 
J 
I 
U 


5 
3 
E 
NL 


nn 
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Allumettes à plusieurs 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : logique (plusieurs joueurs). 
Difficulté du jeu : assez difficile. 


LE JEU : 

Dans ce jeu pour plusieurs joueurs, le meneur de jeu devra, en début de 
partie, choisir un nombre d’allumettes, et indiquer à l’ORIC le nombre de 
Joueurs. 

À chaque coup, le joueur qui a le trait est autorisé à retirer du tas d’allu- 
mettes restantes jusqu’au double de ce que vient de retirer le précédent 
Joueur ; celui qui retire la dernière allumette a gagné (ou perdu, si l’on 
modifie légèrement les règles). 


LE PROGRAMME : 

Les lignes 19 à 40 permettent les différentes entrées. 

Les lignes 79 à 199 réalisent les impressions. 

La ligne 129 contrôle le coup de chaque joueur (par rapport au coup 
précédent). 

La ligne 189 gère les tours (remise à 1 du numéro du joueur). 

La ligne 169 réalise le test de fin, et la ligne 219 affiche le numéro du 
joueur gagnant (avec la règle prévue initialement). 


POUR JOUER : 

Après avoir lancé le programme par RUN, on entre le nombre d’allumettes 
initial, suivi de RETURN puis le nombre de joueurs (et RETURN). 

Le premier joueur ne pourra enlever qu’une allumette, le deuxième en 
enlever 1 ou 2 ; le suivant 1, 2 ou 1, 2, 3 ou 4 selon le coup précédent, et 
ainsi de suite ; le retrait maximum autorisé est à chaque fois affiché par 
PORIC-ATMOS. 

Lorsque la dernière allumette a été prise, on obtient l’affichage LE 
JOUEUR... A GAGNE, et la partie est terminée. 


EXTENSIONS POSSIBLES : 

On peut convenir que celui qui prend la dernière allumette est éliminé du 
jeu, et recommencer la partie entre les joueurs restants qui seront ainsi 
éliminés les uns après les autres. 

On peut aussi imaginer une représentation graphique des tas d’allumettes, 
tirer au hasard le nombre à enlever en début de partie, etc. 


REM ALLUMETTES À PLUSIEURS 

CLS 

IHPUT'NOMBRE TOTAL D'ALLUMETTES :":N 
IHPUT'HOMBRE DE JOUEURS :":.1 

F=l:kK=1 

INK K:PAPER 9 


CLS 
PRINT'TOUR OÙ JOUEUR :"3K 
PRINT'TOTAL RESTAHT :":H 
PRINT'MAXIMUM À ENLEVER :"3F 
PINS: INPUT'VOTRE COUR "ic 
IF Ceÿ OR C?F THEN 114 

NeN-C 

IF NéG THEH NEH+C:GOTO 114 
FaC+C 

IF N=Q THEH 2@8 

K=k+1 

IF K>J THEN K=1 

GOTO 69 

INK G:PAPER 7:CLS 

PRINT'LE JOUEUR NUMERO "ik: À GAGHE":EXPLODE 
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Calendrier perpétuel 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : gadget publicitaire. 
Difficulté du jeu : aucune. 


LE JEU : 

Ce programme vous permettra de confectionner tous les ans votre calen- 
drier ; vous pourrez ainsi vous en servir pour envoyer à vos amis un calen- 
drier du mois de leur naissance, ou pour leur souhaiter une bonne fête, 
etc. 


LE PROGRAMME : 

Les lignes 39 et 49 vous permettront d’entrer les mois et l’année. 

Les lignes 59, 69 et 79 calculent le numéro du premièr jour du mois. 

La ligne 89 calcule le nombre de jours du mois (il n’est pas tenu compte 
ici des 29 février, pour simplifier). 

La boucle A (129-150) réalise l'impression du calendrier proprement dit. 


POUR JOUER : 

Après avoir lancé le programme par l'instruction RUN, on devra introduire 
l’année, sous la forme, par exemple 1983, suivie de RETURN. 

On obtient alors la question MOIS, à laquelle il convient de répondre par 
le numéro du mois, suivant l’ordre usuel (1 pour JANVIER, 2 pour FE- 
VRIER, etc.). 

On fait ensuite RETURN, et le calendrier est alors affiché sur l’écran. 


EXTENSIONS POSSIBLES : 

On pourra sans difficulté prévoir l’affichage des 29 février, prévoir une 
option permettant l’affichage pour une année complète, prévoir l’intro- 
duction du nom des mois en clair, etc. 


14 
pas 
39 
4 
24 
64 


mis ee bi be 19 0 —J 
PORTE ER ET ER ELT 
Rare 


REM CALENDRIER PFERFETUEL 


CLS 

INPUT"PQUR QUELLE AHHEE :"54 
INPUT"POUR GUEL MOTS si 
DeIHTC 365, SX AE MES 0 +1 


DeD+IMTÉ 20, 6kC Macé K12 03 

INT € INT CAE ME 2100 3-7 DE, 75 5 
DeD-7#INTED/7 
M=31+( Med OR Me6 OR Meg OR Met 4CMeZKS 
PRINT 

PRINT" DIM LUN MAR MER JEU VEN SAM" 
PRINT 

FOR A=1 TO M 

PRINT TAB d#é D+f-1 144 5; A; 

IF D+A-1=6 THEN PRINT :DeD-7 

NEXT A 


FOUR QUELLE AUHEE °Ÿ 1484 
POUR QUEL HOIS are 


DIM LUH MAR MER JEU UEN S4h 


1 
Es] 
15 
85 
£a 
LT 


QE Dr: 
DUR 15] 
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Bataille navale 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : réflexion. 
Difficulté du jeu : facile. 


LE JEU : 

Une bataille navale a priori assez simple, avec un seul navire caché au 
hasard dans une grille de 19 cases sur 19 cases. 

A chaque coup, on devra tirer en donnant les coordonnées H (horizontale) 
et V (verticale) de la case visée, et l’'ORIC-ATMOS répond en affichant la 
distance séparant le navire invisible de la case visée. Mais, si l’on tire trop 
près, le navire risque de se recacher au hasard. 


LE PROGRAMME : 

La boucle I (49-70) dessine le terrain de jeu. 

Les lignes 99-190 définissent l’emplacement du navire. 

Les coordonnées du tir sont entrées aux lignes 119 et 129, et la ligne 139 
affiche le coup sur l’écran. La distance est calculée en ligne 149, et la ligne 
159 regarde si l’on a ou non fait mouche. 

La ligne 179 intervient pour déplacer le navire si les coups sont rap- 
prochés. 

La ligne 189 permet l’affichage de la distance. 


POUR JOUER : 

Le terrain de jeu est affiché après avoir frappé RUN. A l'affichage de 
LIGNE, on répond en donnant le numéro de la ligne horizontale sur la- 
quelle on désire tirer. On tape ensuite RETURN et, à la question CO- 
LONNE, on répond en donnant le numéro de la colonne verticale suivi de 
RETURN. 

Si on a tiré trop près, on obtient l’affichage PFFFF... qui signifie que le 
navire ennemi a changé d'emplacement. 

Si on a tiré sur la bonne case, on obtient l’affichage du nombre total de 
tirs effectués pour gagner. 


EXTENSIONS POSSIBLES : 

Elles sont innombrables, puisqu’aussi bien la bataille navale est l’un des 
jeux les plus répandus qui soit. On peut introduire deux joueurs, jouer 
contre l’ORIC, mettre plusieurs navires, des sous-marins, etc. 


REM BATAILLE NAYALE 

PAPER 6:IHK 9:CLS 

PRINT" 41234 36 7 8 9" 
FOR 1=4 TO 9 

PRINT 
PRIHT 

MEXT I 

S=1 : 

R=INTÉ RHDE 1 2410 


194 Y=INTÉ RNDS 1 3410 5 

119 PRINTE3,21; "LIGNE :";:INPUT H 

124 PRINT@20,21;'"COLONHE :";:IHPUT 
134 PRINTR3#V+5, 2KH+1:S : EXPLODE 

144 D=INTCSGRE € K-H DKC KH + VV DEC 0 3 53 
159 IF D=9 THEN 208 


169 S2S+1 

179 IF Dai THEN PRINT®3,22;"PFFFF..., ":GOTO 94 
189 PRINTE3,22; "DISTANCE "Ds" ÿ 

198 GOTO 119 


298 


CLS 
218 PRINT'TROUVE EN ":S;" COUPS" :2ZAP:2ZAP:2AP 


[a 
l 
2 
3 
4 
=] 
Ë 


4 


2 © 


COLOHHE :7 7 
5 
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Golf 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : assez facile. 


LE JEU : 

Il s’agit d'essayer de réaliser, avec le moins de coups possible, un parcours 
de golf de 18 trous. Pour cela, il vous faut frapper la balle avec une force 
plus ou moins grande, jusqu’à obtenir sa chute dans le trou. 

Mais attention, il peut y avoir certains aléas sur chaque coup, et vous serez 
amené souvent à revenir en arrière (il faudra alors faire précéder l’indi- 


* cation de la force par un signe -). 


LE PROGRAMME : 

La ligne 70 permet de définir la position du trou, et la ligne 89 dessine le 
terrain de jeu. 

Le déplacement à réaliser est calculé en ligne 120. 

La boucle 1 (140-190) réalise le déplacement de la balle. 

La ligne 200 regarde si le coup est, ou non, gagnant ; s’il l’est, on recom- 
mence (ligne 250) jusqu’à ce que l’on ait réalisé 18 trous (boucle S (49- 
250) : fin de boucle en 270, avec affichage de fin). 


POUR JOUER : 

On obtient l'affichage du terrain en frappant RUN ainsi que le dessin de 
la balle sur sa position de départ, et le texte : TROU 1. FORCE ; on doit 
alors répondre en donnant la force désirée (un nombre entre 1 et 399...). 
Dès que l’on aura tapé RETURN, la balle recommence à se déplacer ; elle 
peut alors soit s’arrêter avant le trou (auquel cas on recommence), soit 
tomber dedans (on passe alors au trou suivant), soit le dépasser : on devra 
alors frapper avec une force négative. 


Le jeu se termine avec l’affichage 18 TROUS EN … COUPS. 
EXTENSIONS POSSIBLES : 


Il sera possible d'étendre le jeu pour faire participer plusieurs joueurs, 
d'améliorer la qualité graphique, d'utiliser une représentation spatiale du 
terrain (se référer à certains jeux d'arcade), d’avoir un terrrain plus acci- 
denté, des obstacles, de changer de club... 


= ee 
RARE EX EL ELX) 


Di 


ee GI JE & iii 
Lt] D Li 


234 
54û 
25 
264 
270 


REM GOLF 
PAPER 3:CLS 

PRINT CHESC 17: 

FOR S=1i TO 18 

FOR Is@ TO S:PLOTA, L,CHP&CZR3:MERT ! 


T= THTC 29HRHDC 1 +35 
PLOT 4,6, CHR&C 162: PLOT 1.6,CHR&c 2 


à PRIMTRT, 6: CHRSC 255 0: PRIHTBS LT 


PRIHTR15.8:" u 


PRINTRS, Bi UTROU MS: INPUT" FORCE "à 
F=IHTE REA, 166 ABGCR EC GORE RHDC 1 EL 320 


IF F<g THEH 166 
FOR ISSGHCF 3 TO F STEF SGHCF 5 


A ex +SCGME EF 
IF #639 AND &èzg THEH PRIHTIBH-SCME F1, 5: 


FRITES: "ON" 

IF AIS 38 THEH 238 
IF #éx2 THEH xx2 
MEXT I 

IF &=T THEH 236 
E=E+1 
GOT 4 
PRIHTE#, Si" M: PRIHTE#.6: "0" 
AIT ZS6: PRINT. 6: UE PTHE 
MEXT & 

PAPER F:CLS 


PRIHT"'1S TROUS EM "GES" COUPE": ZAP : 2AP :2AF 


î 
HARMAN RENAN MER AE HEAR HAE HAEH A 


TEQU 4 FORCE :48 


LE 


SHOC IL. 
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Solfège 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : facile. 


LE JEU : 

Ce programme vous propose une initiation élémentaire au solfège, en vous 
permettant d'apprendre à reconnaître facilement les différentes notes, qui 
apparaissent les unes après les autres sur une portée ; après l’affichage de 
la note, vous devez entrer son nom en clair et votre score sera affiché en 
permanence. 

Le programme est initialement prévu pour la clé de sol, mais il sera très 
facilement adaptable à toute autre clé. 


LE PROGRAMME : 

La boucle I (59-79) dessine une portée. 

La note est choisie en ligne 89 et affichée en lignes 99-190-110. 

La ligne 129 affiche le score. 

La ligne 139 affiche le nom de la clé (ici clé de sol) et vous interroge. 
La ligne 149 s’occupe de la fin de la partie. 

Les lignes 159 et 169 effectuent le décodage de la note entrée. 

La ligne 199 contrôle le résultat. 


POUR JOUER : 

Après avoir lancé le programme par RUN, la portée sera affichée, ainsi 
que la première note. 

Vous répondrez à la question NOTE en donnant le nom en clair de la note 
(do, ré, mi, fa, sol, la ou si), suivi de RETURN. 


Le score vous indiquera si c’est exact ou non, et une nouvelle note sera 


. affichée. 


34 


Pour arrêter, il suffira de répondre @ suivi de RETURN, à la question 
NOTE. 


EXTENSIONS POSSIBLES : 

On pourra tout d’abord facilement modifier le programme pour lui per- 
mettre de vous faire travailler les différentes clés. On pourra aussi ainélio- 
rer le graphisme, introduire la couleur, le son (lorsque l’on a répondu juste, 
on entendra la note, par exemple). On pourra aussi réaliser suivant le 
même principe un jeu vous permettant de reconnaître des accords, etc. 


14 
24 
34 
4f 
34 
64 
F4 
54 
308 
144 
114 
124 
134 
144 
154 


164 
174 
154 
134 
264 


REM SOLFEGE 

PAPER G:IHK 7 

S=4:P=f 

CLS 
FOR Izi TO 5 
PLOT G,2#1+1.17 
HEXT I 
He IHTÉRHDE 1 UIKIZ 
FRINTRIS,#4;"i" 

PRINTUIR, #41; "i" 

PRIHTEIT, 442; "0" 

PRINTO3,21:"SCORE ":iS;" SUR "Pi" ESSAIS" 
INPUT'CLE DE SOL — QUELLE EST LA NOTE :":R% 
IF R$="9" THEN EHD 

= 1 AND R$= "FA" SA4CE AND Ra "MI" EC 
AND RG="RE" 46 4 AMD Rat D0" 

Vev+cs AND R$="ST "ice AND Rh="LA" 5 
P=zP+1 

FIHG 

IF Yes OR Vak-7 THEN 52541 

GOT 4m 


SCORE 


SUR ES: 
CLÉ DE sL = BULLE EFË 
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Le jeu du 21 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : jeu contre l'ORIC-ATMOS. 
Difficulté du jeu : facile. 





LE JEU : 

On devra entrer une mise au début du jeu, et on pourra lancer les dés en 
tapant 1 ; à chaque lancer. on obtiendra un nouveau total, qui augmentera 
peu à peu, et se rapprochera de 21. On devra essayer de se rapprocher le 
plus possible de 21, sans dépasser ce nombre. Lorsque l’on décidera de 
s'arrêter, 1] suffira de taper @ pour laisser jouer l'ORIC-ATMOS qui es- 
saiera alors d’avoir un meilleur score. 

À la fin de chaque partie, le gain sera affiché ainsi que le total des gains 
(ou des pertes). 


LE PROGRAMME : 

Les lignes 89 et 90 réalisent le contrôle de celui qui doit jouer (joueur ou 
ORIC). 

Le sous-programme (1000-1910) lance les dés. 

Les lignes 119-129 calculent le total fait par le joueur et l’affichent. 

Le total de l’'ORIC est calculé en ligne 190 et affiché par la ligne 200. 

La ligne 229 contrôle la fin de jeu pour l’ORIC. 

Les lignes 269-289 affichent les résultats, et la ligne 300 cherche quel est 
le gagnant. 

Le gain (ou la perte) sera affiché par la ligne 320, et le total par la ligne 
350. 

La ligne 389 contrôle la fin de partie. 


POUR JOUER : 

Taper RUN pour lancer le jeu. 

À la question VOTRE MISE, entrer la mise initiale, suivie de RETURN, et 
taper 1 pour lancer le dé. Le premier tirage est affiché sous la forme VOUS 
AVEZ... et on devra refaire 1 suivi de RETURN, tant que l’on désire 
recommencer à tirer. 

Dès que l’on a terminé, on tape 9 et RETURN pour laisser jouer l’ORIC- 
ATMOS (qui tient ici le rôle de la banque). 

Le gain (ou la perte, s’il y a le signe -) sera affiché en fin de jeu, ainsi que 
le total des gains (ou pertes) réalisé depuis le début. Si l’on désire arrêter 
de jouer, on devra taper N en réponse à la question ON CONTINUE 
(O/N). 


EXTENSIONS POSSIBLES : 

Ce jeu sera évidemment plus intéressant s’il est pratiqué à plusieurs, et il 
sera aisé de modifier le programme en conséquence, on pourra aussi des- 
siner le dé, ou mieux, utiliser des cartes, ce qui permettra alors de faire un 


Jeu de Black Jack. 


REM LE JEU DU 21 

G=Q 

PAPER 6 

INK 4 

CLS 

T=0 

INPUT'VOTRE MISE :",3M 

INPUT"'FAIRE 1 POUR TIRER ; 9 POUR FINIR'"':R 
IF Reÿ THEN 159 


108 GOSUB 1909 

119 TæT+x 

128 PRINT'VOTRE TOTAL EST DE :";T:PING:WAIT 199 
139 GOTO 88 

150 CLS , 

168 PRINT"'LA BANQUE JOUE" :PRINT:PAPER 2 
179 S=x9 

188 GOSUB 1909 

199 S=S+X d 

208 PRINT'TOTAL DE LA BANQUE ":;5 

219 ZAP:WAIT 208 

220 IF ST OR 5>17 THEN 259 

238 GOTO 189 

259 CLS:PAPER 7:INK 

268 PRINT"'YOUS AVEZ ";T 

270 2AP:2AP:ZAP:UAIT 299 

289 PRINT:PRINT"'LA BANQUE À ";5 

299 PRINT:2AP:2AP:ZAP:WAIT 299 

308 1F 3221 OR SCT AND T<21) THEN 229 
319 M=-M 

328 PRINT'GAIN ":M 

33Q PRINT 

34@ G=G+M 

350 PRINT'VOTRE TOTAL ACTUEL ";G:EXPLODE 
364 PRINT 


378 


INPUT'ON CONTINUE CO/H3 :":R$ 


388 IF R$="N" THEN END 
392 GOTO 39 
1999 X=INTCRNDC 1 246+1 2 


191 


@ RETURN 


NOUS AUEZ 
LA BANQUE 4° 13 
GAIN -194 


UOTRE TOTAL ACTUEL -198 
OH CONTINUE €Q/H5 :7 H 
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Pair-impair 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

C’est un jeu de hasard, pour un ou plusieurs joueurs. L’ORIC lance si- 
multanément deux dés, non visibles et pose trois questions : quelle est la 
parité du total, quel est le total, et enfin donner la valeur de l’un des dés. 
On peut ensuite soit poursuivre le jeu, soit l’interrompre à tout moment. 


LE PROGRAMME : 

Les dés sont tirés par un sous-programme placé aux lignes 1900 et 1919. 
La ligne 89 tient le compte du nombre de parties, et les lignes 189, 269 et 
299 comptabilisent les points marqués. 

La parité du total est déterminée par les lignes 139 et 149 (la ligne 149 
compare avec la réponse du joueur). 

La ligne 499 et les suivantes réalisent l’affichage de fin de partie : total, 
nombre de points, nombre de parties jouées. 

La ligne 449 provoque l’arrêt si l’on répond N à la question ON CONTI- 
NUE. 


POUR JOUER : 

On lance le programme par l'instruction RUN. 

Il suffit ensuite de répondre aux diverses questions posées, en suivant 
scrupuleusement les indications données et en tapant RETURN après 
chaque réponse. 

Lorsque l’on a terminé une partie, on obtient l'affichage du total actuel et 
du nombre de parties sous la forme de, par exemple, 6 SUR 19. 

On obtient alors l’affichage de la question ON CONTINUE (O/N) et l’on 
devra répondre N suivi de RETURN pour arrêter. 


EXTENSIONS POSSIBLES : 
Si l’on désire jouer à plusieurs, il sera intéressant de prévoir la possibilité 
de miser, et d'ajouter une gestion du score réalisé par chacun des joueurs. 
On pourra aussi prévoir une amélioration sur le plan de la présentation 
(utilisation de la couleur, etc.). 


REM PAIR-IMPAIR 
T=B:Re=9 

INK 4 

PAPER 6 

GOSUB 1998 

AzXx 

GOSUB 1998 
ReR+1 

Safñ+x 


198 CLS 

119 INPUT"'TOTAL PAIR CG) OU IMPAIR (13 :"3N 
120 PRINT 

139 PaS/2-INT(S/2) 

149 IF NeP OR N-8.5=P THEN 179 

158 PRINT'FAUX":2ZAP:MAIT 198 

168 GOTO 198 

178 PRINT'EXACT":PING 


180 
199 
290 
219 
220 
230 
240 
259 
260 


TæT+1 

PRINT 

INPUT'TOTAL PRESUME :"3N 
IF NzS THEN 259 
PRINT"PERDU" 

EXPLODE :HAIT 399 

GOTO 499 

PRINT 

TaT+2 


: 
27@ PING:INPUT"ERAVO . DONNEZ UN DE :":N 


289 IF N<C>A AND N<2S-A THEN 22% 


299 
300 
318 
408 


TaT+3 
PRINT 

2AP :2RP :ZAP :PRINT"BRAVO" :GOTO 239 
CLS : PAPER? : INK_9 


419 PRINT"YOUS AVEZ UN TOTAL DE ":T;" SUR "ik 
428 PRINT 

430 INPUT'ON CONTINUE <O/N2 :":3RS$ 

© 448 IF R#="N" THEN END 


450 


GOTO 49 


1990 K=2INTS RNDE 1 2#6+1 3 


191 


8 RETURN 


TOTAL PAIR €@ù OÙ IMPAIR C1 :7 1 
EHACT 
TÜTAL PRESUME :7 7 


BEÊNO OOHNHEZ UN DE :7 3 
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Devine un chiffre 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

C’est un jeu de hasard, de conception très simple, mais néanmoins assez 
passionnant : le joueur introduit sa mise, et parie sur un chiffre, de 1 à 6 ; 
trois dés sont alors lancés ; si le chiffre joué apparaît deux fois, il double 
sa mise ; s’il apparaît trois fois, il triple sa mise. 


LE PROGRAMME : 

Le tirage des dés est réalisé par un sous-programme placé en lignes 1900 
et 1910. 

L'affichage est réalisé par les lignes 159 et 160. 

Les lignes 189 à 219 calculent le gain dans les diverses configurations 
possibles. 

La totalisation est effectuée en ligne 239 pour les gains, et en ligne 519 
pour les pertes. 

La variable R$, testée en ligne 550, détermine la poursuite éventuelle du 
Jeu. 


POUR JOUER : 

Le lancement du programme par RUN provoque un premier affichage 
VOTRE MISE ; on répond par un nombre suivi de RETURN. On obtient 
alors un deuxième affichage DONNEZ UN CHIFFRE DE 1 A 6 ; on entre 
un chiffre suivi de RETURN ; les 3 dés, repérés par les lettres A, B, C 
s’affichent alors, ainsi qu’un message indiquant votre gain ou votre perte. 
Puis une indication sur votre total actuel apparaît, ainsi que la question 
ON CONTINUE (O/N) ; taper O pour continuer, N pour arrêter (suivi de 
RETURN). 


EXTENSIONS POSSIBLES : 

On pourra facilement introduire des contrôles (mise minimum, coup pro- 
posé de 1 à 6, etc.). On pourra aussi dessiner des dés avec un graphisme 
plus élaboré, introduire la possibilité de jouer à plusieurs, faire même 


participer l’'ORIC-ATMOS. 


14 REM DEVINE UH CHIFFRE 

24 G=û 

34 PAPER S 

44 INK 3 

59 CLS 

64 INPUT'VYOTRE MISE :":H 

79 PRINT 

88 INPUT'DONNEZ UN CHIFFRE DE 1 4 6 :"5iD 
94 GOSUB 1964 

19 A=Xx 

119 GOSUE 194 

129 B=%x 

138 GOSUB 1990 

149 C=x 

159 PRINT:PRINT:PRIHT" A E C" 
169 PRINT:PRINT" "si" "iBi" "3e 
174 T=9 

189 IF D=A THEH T=T+H:2ZAP 

199 IF D=B THEN T=T+H:2AF 

244 IF D=C THEH Ta=T+N:2fAP 

219 IF T=@ THEH 56% 

224 PRINT:PRINT:PRINT"'YOUS GAGMEZ "iT 
238 G=G+T 

248 GOTO 528 

998 PRINT:PRINT:PRINT"PEROL À 
219 G=G-H:PING 

324 PRINT:PRIHT:PRINT'TOTAL ACTUEL :"5G 
334 PRINT 

544 INPUT"'ON CONTINUE CO/N3 :"5RS$ 

394 IF R$="N" THEN END 

564 GOTO 34 

1908 X=INTÉ RNDE 1 34641 2 

1914 RETLRH 


LOTRE MISE :7 146 
DONNEZ UN CHIFFRE DE 1 4 6 :7 


A B 
2 4 


PEROU 


TOTAL ACTUEL :-199 
ON CONTINUE €O/H5 :7 H 
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Le jeu de Wytthof 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion (deux joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

On dispose d’une grille carrée de 19 cases sur 19 cases. Un point apparaît, 

en dehors de la diagonale et les joueurs devront le déplacer à chaque tour, 

suivant seulement trois directions : droite, bas et diagonale, bas et droite. 

Le premier joueur qui arrive en (9,9) sera considéré comme gagnant, ou 
perdant, selon la convention faite au début. 


LE PROGRAMME : 

Les lignes 49, 59 et 60 permettent de définir une position de départ, en 
dehors de la diagonale. 

La ligne 89 et la boucle I (99-119) dessinent le terrain de jeu. 

La ligne 139 imprime la position du point mobile. 

Le test de fin est effectué en ligne 144. 

Le changement de joueur est assuré par la ligne 180. 

Les directions de déplacement disponibles, 1, 2 et 3, sont décodées par 
trois sous-programmes qui commencent aux lignes 1000, 2000 et 3000. 


POUR JOUER : 

Taper RUN pour lancer l’exécution du programme. Le terrain de jeu s’af- 
fiche, ainsi que la position de départ. 

Puis on obtient l'affichage JOUEUR 1 et en dessous la question DIREC- 
TION (1, 2,3), à laquelle on répond en tapant l’un de ces trois nombres, 
suivi de RETURN. 

C’est ensuite au tour du joueur 2. 

Le jeu se termine lorsque l’un des joueurs arrive en case (9, 9). 


EXTENSIONS POSSIBLES : 

On peut tout d’abord améliorer les contrôles (la sortie du terrain n’est pas 
interdite, par exemple), améliorer ensuite l'affichage. (graphisme, cou- 
leur), étendre le jeu à plusieurs joueurs avec un terrain agrandi, introduire 
un monstre qui va essayer de capturer un des joueurs, prévoir un pro- 
gramme qui permettrait à l’'ORIC-ATMOS de jouer, etc. 


REM LE JEU DE WYTTHOF 
PAPER 6 

INK 4 

Ke T4 INMTÉRNDE 1 345 3+5 
Y=INTC RNDE 1 245 

IF 3XY+5=x THEN 54 
CLS 


* PRINT" D 1 4 3 4 5 6 °F & 9" 


FOR I=9 TO 3 


198 PRINT:PRINT 15... 0 2  ." 


119 


NEXT I 


129 H=1 


134 
149 
154 
164 
179 
189 


PRINTRK4+Z, Z4Y+2: "+" 

IF KX=32 AND Y=S3 THEN ZAP:2AFP:2ZAP :EMD 
PRINTE3, 22; "JOUEUR "3H; : INPUT" GIRECTION (1,2,32":D% 
DeVALC DS 3: PING 

ON D GOSUB 1999,2949,:3809 

H=2-ABSCH-1 à 


199 GOTO 136 
1988 X#=x+3 

1919 RETURN 
2998 GOSUB 1699 
3900 Y=Y+1 

2619 RETURN 


(e] 
l 
2 
3 
4 
s 
é 
ra 


+ 


œ 


+ 


Le 


de ee AN he QCg 
JOUEUR 2 - DIRECTION €1,2,357 2 
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Rebonds 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : jeu d’adresse. 
Difficulté du jeu : moyenne. 





LE JEU : 

I utilise l’idée de la simulation d’un billard à bandes. 

De part et d’autre de l’écran se trouvent la balle et le but visé : une série 
de chiffres et de lettres, en haut de l’écran, permettent de choisir l'endroit 
où l’on désire rebondir. 

La balle va alors partir vers le haut de l’écran (vers le bas si l’on introduit 
un signe moins), y rebondir, revenir éventuellement frapper le bas, rebon- 
dir, et ainsi de suite jusqu’à atteindre la ligne de but ; si l’on est suffisam- 
ment près de la cible on a gagné et le nombre de rebonds sera alors affiché. 


LE PROGRAMME : 

La ligne 59 imprime les chiffres et les lettres en haut de l’écran. 

Les lignes 69 et 79 définissent les positions initiales de la balle et de la 
cible. 

Les lignes 89 et 99 effectuent leur impression. 

Le symbole correspondant à la direction choisie est entré en ligne 100. 
La boucle J (139-179) réalise le déplacement de la balle. 

La ligne 169 imprime la nouvelle position. 

Le changement de direction, lors de la rencontre d’un bord, est effectué 
par la ligne 159, par renvoi dans une partie du programme indépendante, 
située aux lignes 229 à 240. 

La ligne 189 effectue l'impression de fin de partie. 

Le nombre de rebonds est compté en ligne 230. 


POUR JOUER : 

On lance le programme par RUN. 

Le terrain de jeu est affiché, ainsi que les positions initiales de la balle et 
de la cible. On choisit l’endroit où l’on désire faire rebondir la balle (de 1 
à z), et on l’entre suivi de RETURN. 

La trajectoire est alors affichée, suivie s’il y a lieu de la mention BRAVO ; 
X REBONDS. 

On peut lancer une autre partie en tapant une touche quelconque, et s’ar- 
rêter à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

Il sera très intéressant, en utilisant un graphisme plus fin, de dessiner un 
véritable billard, avec son tapis vert, et d'indiquer la direction par un 
segment, symbolisant la queue de billard, se déplaçant autour de la bille. 
On peut aussi ajouter des trous, mettre plusieurs billes, sonoriser les re- 
bonds, ou les heurts avec d’autres balles, les comptabiliser pour faire une 
partie à plusieurs joueurs, etc. 


14 FENM REBCIHDOES 
24 PRINT CHR&C IF 

34 PAPER G:IME 1 

44 CLE 

SA PRINT LEÉGAHE FEU 
EE Ge TMTÉ RHDC 1 1#18+ 
FA TS TMTÉ RMDC 1 EL EEE 
4 PRIHTUE, MU" 


CCE EF GHT ELMHORARET UML" 









34 La : 
1464 PRIHTIRS, SES: OUTRE COILIF ec THPLIT Fi 
114 Sel 


iQ Fr 


ni 


TO 33 





IF Téoszé (IR Tésä THEN 

FRIMTGE.I Tito" 

MET I 

IF ABST-Y 3 THEN PETHTPRRANO MS REBOINOS "SE KPLOCE 
IHPLITUAUTRE PARTIE CL pe 

IF E="H THEN ENT 


ai 2 





M 


= 
RENE 


Ex 


DID MER RE 


idee pe pa bu pe pet 
Din 


2: 
Li 
Een 
= 
2 

Et 

nt 


PEER 
Se5+1:PTMG 
GOT 174 


£Birvfoe is 


Fo ti pa 


SRE 


1234567894BCO0EF GHI JKLMHOPORETUNMEYZ 
Q 0 ù 0 ù © 
AUTRE FARTIE COM: M 
AUTRE F C0 à à 


VOTRE COUP :7 
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Jackpot 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : hasard (un joueur). 
Difficulté du jeu : facile. 


LE JEU : 

C’est une variante simplifiée d’un jeu de hasard classique, dans lequel le 
joueur doit faire une mise. S’il obtient certaines combinaisons de symboles, 
il gagne (plus ou moins, selon sa mise et la combinaison obtenue). 

Ici, les symboles sont remplacés par des chiffres, et le fait d’avoir trois 
chiffres identiques permet de gagner. Il existe de plus une combinaison 
particulière qui permet de remporter le Jackpot. 


LE PROGRAMME : 

La boucle I (69-89) permet le dessin de la machine, la ligne 99 affichant 
les emplacements (vides) des chiffres. 

La mise sera entrée en ligne 190, et testée en ligne 119 : si on mise @, la 
partie est terminée (départ vers la ligne 2000). 

Les lignes 129, 139 et 149 permettent le tirage des 3 chiffres, en appelant 
un sous-programme qui se trouve en ligne 1900. 

Le résultat est affiché par les lignes 150 à 179, puis testé en ligne 189, et 
en ligne 310, si l’on a gagné. 


POUR JOUER : 

Lancer le programme par RUN ; à l’affichage de la question POT DE 
DEBUT, on répond en entrant un nombre suffisamment élevé, sur lequel 
vos mises seront décomptées. 

Puis on tape RETURN, et on entre une première mise (différente de @), 
suivie de RETURN. 

Les trois chiffres tirés sont alors affichés un bref instant, ainsi que la mise 
faite, et le résultat obtenu (gain ou perte). 

On peut ensuite miser de nouveau, faire RETURN et ainsi de suite. 

Pour terminer, il suffit de répondre 9 à la question VOTRE MISE. 


Le restant de votre pot initial sera alors affiché. 


EXTENSIONS POSSIBLES : 

On pourra envisager d'améliorer sérieusement les contrôles, utiliser la cou- 
leur et des possibilités graphiques plus élaborées pour simuler davantage 
un véritable Jackpot. 


14 
24 
34 
4 
14 
EA 
FE 
84 
34 
144 
114 
124 
134 
144 
154 
164 
174 
154 
134 
244 


RENM JIACEPOT 
CLS: PAPER 6: IMK 4 


PRIHTES, GG: "POT DE DÉBUT : "3: THPUT F 
CLS 
FOR Ie1 TO ZS:PLOT 1:44, CHRGCSGHERT I 


FOR I=1 TO 
1 


FOR Je@ TO 14: PRIMNTRIG EI, T+d: CHARGE ZE SG HMEXT .] 


MNEXT I 
FRIHT#14,6;" M:PRIHTGI9.6:i" M:PRIHTEE 4,6" " 
PRIHTESZ, 11: "VOTRE MISE :"3:IHPLUT M 

IF Ms@ THEH 244% 

GOSUE 1446 

Az: GOSUE 1444 

Ez#:GOSUB 1444 

PLOT13.6, CHRSE QHSTR GC A IH CHRRE 1 : PTNG 

PLOT18.6, CHRGC Q I+ESTREC ECHECS 1: PIMG 

PLOTE3, 6, CHR$E Q +STRGE CA CHEGE 1: FINC 

IF ASE AND Az4 THEH 344 

H=-M 

PRINTES, 11:"MISE "ii" — RESULTAT :";Hi" " 


214 IHPUT'TAPER - &G RETURN - POUR CONTIHUER":R& 


P=P+tl 
GOTO 44 

H=MKSG : ZAP : ZAP : ZAP 

IF A=7 THEN H=M#598 :EXPLODE 


328 GOTO 206 
100 %eINTERHDE 1 34941 


4 RETLRH 


2444 CLS 
2414 PRINT:PRINT'VYOQUS AYEZ "Fr 
2824 PRIHT:PRIHT"'A ETENTOT" 


APPUYER EUR 9 — RETURH -F 
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Roulette 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : hasard (plusieurs joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

Il est surtout spectaculaire par son aspect graphique : une boule, repré- 
sentée par un carré noir, se déplace sur un terrain de jeu comportant des 
cases numérotées de 1 à 36, ainsi que trois cases supplémentaires, le 00. 
une case P (comme pair) et une case [ (comme impair. 

La boule parcourt au moins une fois chaque case, puis s'arrête au deuxième 
tour, on peut ensuite la relancer pour une autre partie. 


LE PROGRAMME : 

La boule K (59-110) dessine le terrain de jeu, auquel la ligne 120 rajoute 
les trois symboles P, 09 et I. 

La boucle K (139-190) réalise le déplacement de la boule, l'arrêt étant 
contrôlé par la ligne 170. 

Le sous-programme 300-310 réalise une légère temporisation. 

La ligne 200 tire la position d'arrêt. 

La ligne 260 gère les essais suivants. 


POUR JOUER : 

Il suffit de faire RUN, et de regarder. 

Une fois la boule arrêtée, il suffira de frapper une touche quelconque (sauf 
“N°) pour la relancer. Taper N pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On pourra essayer de se rapprocher davantage d’une véritable roulette, de 
différentes manières : mieux dessiner le terrain de jeu, introduire des cou- 
leurs, simuler le ralentissement de la boule, introduire différentes possi- 
bilités de pari, et assurer la gestion des gains correspondants, tenir les 
comptes de plusieurs joueurs, et annoncer les résultats sous une forme plus 
usuelle. 


19 


39 
49 


69 
ré: 
39 


94 

198 
114 
129 
139 
144 
150 
169 
174 
189 
134 
294 
219 
2284 
238 
248 
250 
264 
2708 
289 


REM ROULETTE 
PRINT CHR&( 172 
PAPER 4:IMNK 3 
CLS 
FOR K=1 TO à 
FOR I=1 TO 9 
S=I+I 
PRINT TABC4#I2CS AND K=13+05+18 AND K=23+(5-1 
AND K=353+(54+17 AND K=d 3; 
MEXT I 
PRINT: PRINT :PRINT:PRINT 
MEXT K 
PRINT2,2;"P':PRINTRZ.6; "GG" :PRINTEZ,14:"I" 
FOR K=1 TD 4 
FOR I=1 TO 19 
IF 1=1@ THEN 229 


PRINT@A4KI+1, 4#K-3; "0": PING:UAIT 84 :PRINTRAHI+1, 4#K-3i" M 


H=W-1:1F Xel THEN ZAP:ZAP:2AP:GOTO 259 
NEXT I 

NEXT K 

Xæ INTC RNDC 1 #38 

GOTO 129 

IF K=d THEN 240 

PRINT@Z, 4#K-1; "0": PING:WAIT 89 :PRINTR2,4#K-1:5" "; 
GOTO 174 

PRINT CHRSCE); "0" 

PRINT@Z, 29; "AUTRE ESSAI CO/H2":: INPUT R$ 

IF R$="N" THEN END 

GOTO 48 


AUTRE ESSAI OH tr 
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Couloirs 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion. 


Difficulté du jeu : difficile. 
LE JEU : 


Il fait appel à des notions de logique élémentaire. Le joueur peut se pré- 
senter à l’entrée, soit du couloir numéro 1, soit du couloir numéro 2. Dans 
ces deux entrées sont disposés des tourniquets qui basculent à votre pas- 
sage et vous laissent passer, une fois vers la droite, et la fois suivante vers 
la gauche. De plus, un tourniquet analogue a été disposé dans le couloir 
central, pourrez-vous prévoir où (sortie A ou B) va s'effectuer votre pro- 
chaine sortie ? 


LE PROGRAMME : 

Les lignes 39 à 79 dessinent les couloirs (et les trois tourniquets). 

La ligne 199 attend votre choix. 

Le décodage du chemin est fait par l’'ORIC-ATMOS en utilisant trois va- 


riables logiques I, J et K, représentant les états des trois tourniquets (lignes 
139 à 270). 


POUR JOUER : 

Après la frappe de RUN, le couloir est dessiné sur l'écran, les tourniquets 
étant visibles, et l’on devra taper 1 ou 2 en réponse à la question de l’'ORIC- 
ATMOS. 

Dans la version retenue ici, la réponse est alors immédiatement affichée, 
et le chemin suivi depuis le début du jeu, ainsi que les sorties correspon- 
dantes, sont affichés sur l’écran. Ceci présente l’avantage de permettre à 
plusieurs joueurs d’exercer leur sagacité en essayant de prévoir, pour une 
entrée donnée, ce que va répondre l’'ORIC-ATMOS. 


EXTENSIONS POSSIBLES : 

Elles seront très nombreuses ; il est très facile d’imaginer un couloir plus 
complexe avec d’autres entrées et d’autres sorties, et d’autres tourniquets. 
On peut imaginer un affichage graphique des résultats en dessinant, un 
bref instant, l’état des tourniquets après la réponse du joueur. On peut 
aussi ajouter un test des réponses (jeu à plusieurs), décompter les points 
de chaque joueur, etc.). 


Be pe pt pet be ee LÛ O0 SIM CN B'itfür 
CA LP ee CD D SE CR it 


mers 
ee 1 LD OO NI EN 
D RO SOMMES RCD 


Fo Po FO Fo Fo Fo FO Fo 
Hi 8 ira 


REM COULOIRS 
CLS 

PRINT Men ; 
PRINT'E RE 


1=0: J=9:K=9 
p=! n, T$=" " 

PRINTR2. 13: "ENTREE 1 OÙ 2 :":: INPUT C# 

IF Cé="" OR Cé="3" OR Cée"g" OR LENCCS<1 THEN 146 
R=RE+CS 

PRINT:PRINT R& 

IF C&="1" THEN 19% 

J=HOTE.J 

IF 4 THEN 259 

Sg="p" :ZAP 

GOTO 229 

I=HOTE 1 

IF 1>4 THEN 254 

S$=" 4" :PING 

TH=TS+58 

PRINTRS, 17: "SORTIE EH ":Sg:PRINT:PRINT Té 

GOTO 169 

K=HOTE K 3 

IF K<>@ THEN 178 

GOTO 214 


DRE EL ELTE) 


= 


ENTREE 1 QU 2 :7 2 
12112222212212 
SORTIE EN à 
BARABBABEBARAEEA 
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Echiquier 


REFERENCES : 


Difficulté de programmation : difficile. 


- Catégorie de jeu : graphisme. 


Difficulté du jeu : variable, selon utilisation. 


LE JEU : 

Le programme proposé vient en appoint du programme Echecs ; il donne, 
en effet, la possibilité de réaliser un affichage graphique de bonne qualité 
pour des jeux utilisant un damier de 8 cases (on pourra facilement l’étendre 
à 10 cases sur 19 cases). Un repérage a été prévu, horizontalement, par 
des lettres (de A à H), et, verticalement, par des nombres (de 1 à 8). 


LE PROGRAMME : 
La ligne 30 imprime les lettres horizontalement. Les deux boucles emboî- 
tées [(40-110) et J(50-100) réalisent le dessin à l’aide de carrés 
hachurés. Le motif à imprimer est affiché ou non suivant la valeur de 
(1+J)/2, en ligne 60. 


La ligne 129 met le programme en attente. 


POUR JOUER : 

L'ordre RUN provoque l'affichage du damier sur l'écran. 

Pour utiliser le programme, il conviendra de tenir compte du repérage des 
cases utilisables qui sont les centres des carrés noirs ou gris. Les cases sont 
obtenues en largeur par une tabulation de la forme 4XJ, J variant de 1 à 
8, et en hauteur par 3X1I-1. 


EXTENSIONS POSSIBLES : 


On pourra utiliser ce programme pour toutes sortes de jeux se déroulant 
sur un damier (échecs, dames anglaises, le loup et les agneaux, ete.). 


14 REM ECHIGUIER 

24 PAPER 1:INK 3:CLS 

34 PRIHT" A E C C: E F G H" 

44 FOR I=i TO & 

54 FOR Ji TO 

64 IF CI+II/Z2=IHTÉCI+J3-23 THEH 164 

FG PRIHT@A4X.J+1, ZT 1: CHRSE 126 + CHR 126 +CHESC 1262: FRIMT I 
84 PRINTRA4H.I+ TL, ET : CHR LEE +CHRGE 126 1+CHRSE 126 2 
94 PRINTR4H.I+ 1, HT +1 : CHRSC 126 IHCHRSGC 126 14CHRSGE 126 
144 HEXT .] 

114 HEËXT I 

124 PRINTRS,4;:IHPUT F$ 
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Le jeu de la fève 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : réflexion (deux joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Présentant une certaine analogie avec le jeu de WYTTHOF, cette version 
offre en fait 4 possibilités de déplacement ; la position de départ est ici 
fixée en (9, @), et pourrait éventuellement être modifiée. 

Les directions de déplacement disponibles sont : droite, bas, diagonale bas 
et droite, diagonale bas et gauche. 

On joue en principe avec la règle : le premier arrivé en (9, 9) a perdu. 


LE PROGRAMME : 

La ligne 39 et la boucle I (40-60) dessinent le terrain de jeu. 

La ligne 190 réalise le test de fin de partie. 

La ligne 130 permet d'exécuter l’un des sous-programmes de déplace- 
ment. 

Les lignes 149 et 159 assurent le changement de joueur. 


POUR JOUER : 

On lance le programme par RUN, et le terrain de jeu s’affiche, ainsi que 
la question DIRECTION (1, 2, 3, 4) : les 4 directions proposées corres- 
pondent aux déplacements suivants. 


4 
: 
; - 
Le joueur 1 entre son déplacement, et frappe RETURN. 
Le mouvement correspondant est réalisé, puis on obtient l’affichage 
JOUEUR 2 et DIRECTION. 


Le joueur 2 procède de même, et ainsi de suite, jusqu’à ce que l’un des 
Joueurs arrive en (9, 9) auquel cas le jeu se termine. 


EXTENSIONS POSSIBLES : 

On peut imaginer d'introduire en début de partie des cases pièges (chacun 
essayant alors de faire venir l’autre sur l’une de ces cases). 

On peut aussi jouer avec plusieurs symboles, si possible de couleurs dif- 
férentes, déplacés simultanément, envisager des terrains de jeu triangu- 
laires, aux dimensions arbitraires, etc. 


154 
208 
214 


149 
191 


Le LE JEU DE LA FEVE 
CLS Le 
PRIHT" G Lie ES 6, T, 6 8" 
FOR I=1 TO 3 
PRINT:PRINT Lit sn 
HEXT I 
#eS:T=l 
J=1 
PRIHT@K+Z, 24%; "4" 
IF #232 AND =9 THEH 244 
PRINT 82,22; "JOUEUR "ii: 
DIRECTIONS 1,2,3,42":1%$ 
I=VALE IS: PING 
ON I GOSUE 1496,2444,2:494, 44464 
JE. +1 
IF Je3 THEN 66 
GOTO 96 
PRINT'LE JOUEUR "Ji 
" A GAGHE ":2AP:ZAP: AP 
EHD 
A Y='r+1 
4 RETURH 


IHPUT"- 


2444 GOSUR 1464 


344 
391 


A H=k+S 
9 RETURH 


4488 GOSUE 3944 


4a1 
492 


A Y=7-1 
4 RETURH 


1 
2 
3 
4 
5 
6 
7 


M © 


LÉ JOUEUR 1 A GAGHE 


JOUEUR © - DIRECTIOHC1,2,3,457 
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Jeu de l’oie aléatoire 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : hasard (deux joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

Le jeu reprend la très ancienne idée du jeu de l’oie, mais en y ajoutant la 
possibilité offerte par l'ordinateur de choisir au hasard les cases “à pro- 
blème”. 

La règle du jeu est sans grand intérêt, puisque les joueurs n’interviennent 
à aucun moment dans le déroulement de la partie, qui est entièrement 
gérée par l'ORIC-ATMOS ; il suffira d'appuyer sur une touche après chaque 
lancer de dé, et de regarder ce qui se passe. 


LE PROGRAMME : 

La ligne 60 permet d'appeler le sous-programme 1900 à 1119 qui réalise 
l'affichage du terrain de jeu, le contrôle de la position des joueurs et l’af- 
fichage de cette position. Cet affichage sera d’ailleurs refait en cours de 
partie, pour tenir compte du déplacement réellement effectué (qui n’est 
pas nécessairement celui indiqué par le dé). 

La ligne 70 s'occupe du changement de joueur, et la ligne 89 effectue le 
lancer de dé. 

La ligne 90 traite le cas où l’un des joueurs termine. 

La ligne 130 tire un nombre aléatoire entre Q et 3, qui servira s’il y a lieu 
pour déterminer le vrai déplacement du joueur, en envoyant dans l’un des 
sous-programmes de “chance”. 

Les lignes 1900 et 1910 font avancer les pions, et les lignes 1920 à 1980 
redessinent à chaque affichage le terrain de jeu en entier. 


POUR JOUER : 

On lancera le jeu par RUN. Le terrain de jeu est alors dessiné, puis on voit 
apparaître l’affichage JOUEUR 1 :.. 

On devra alors appuyer sur une touche quelconque pour que le coup du 
joueur numéro 1 soit pris en compte ; ne pas s'inquiéter du temps de 
réaction, qui pourra sembler un peu long. 

Le déplacement indiqué par les dés sera exécuté, puis au bout de quelque 
temps, un second déplacement sera éventuellement effectué : c’est le dé- 
placement “CHANCE”. On obtiendra alors l’affichage JOUEUR 2. 

Le joueur 2 appuie à son tour sur une touche quelconque et ainsi de suite. 
Le Joueur gagnant sera signalé par un affichage BRAVO en fin de partie. 

On peut aussi s’arrêter à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut agrandir le terrain de jeu, introduire davantage d’aléas, changer 
leur nature. On pourrait aussi choisir les cases “chance” en début de Jeu, 
ajouter des affichages en conséquence, etc. 


89 

34 

144 
114 
124 
134 
149 
154 
164 
244 
219 
340 
319 
495 
414 
49 
519 
149 
191 
192 
193 
194 
195 
196 
147 
148 
143 
119 
iii 


REM JE] DE L'OIE ALEATOIFE 
PAPER 6:INK 4'CLS:PRINT CHARS 17: 
PLOT 4,5, CHR$C175:PLOT 9,6, CHR&C 181 
PLOT1,5,CHR#C 3 5: PLOT1,6,CHR&C Gi 
#eQ:Y=p:.Jel:I=x 
GOSUB 1698 
J=ABS( J-1 5 
Le IMTE RNDE 1 2#6+1 
IF KX235 OR Y=35 THEN PRIHTR2,29; "BRAVO!" : EXPLODE : EMD 
PIHG:PRINTEZ,12; "JOUEUR ":J+1i" - VOTRE COUR :"iT 
INPUT "APPUYER SUR G ET - RETURH-":R& 
GOSUB 1944 
I=IHTE RMDG 1 344 5 
F=IHT(RNDE 1 14541 3 
ON F GOSUE 246,249, 446,594,164 
GOT 64 
I=1+3 
RETURH 
Is-] 
RETURH 
I=ZX#I 
RETURH 
IF J=@ THEM #=INTC END 1 5#30 3: RETLIRH 
= IHTÉRNDE 1 5#309 à: RETURH 
A IF J=9 THEM 4=x-T#fx+Ié=ss 
D Y=Y-JHT#CY+Ié235 
A PRIHTE2,3; "9123456 783ABCDEF GHIJKLMHOPARETU VX Z" 
à FOR I=<A TO 35 
D PRINT@I+2,5:" "; 
Q IF I=*x THEM PRINTRI+2,:5;"1"; 
Q PRINTRI+Z,6:" "; 
Q IF I=Y THEN PRINTRI+2,6; "2"; 
A MEXT I 
A WAIT 198 
G PRINT 
à RETURH 


91234567 S89A4BCDEF GHI JELMNOPERSTUULEX TZ 
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Niveau 2 


Nom du programme 


Dé truqué 


Visions 


421 


L’électricien fou 
La course au 20 
Musique 


Poker 


Le jeu de saute-mouton 
Lettres 
Machinamot 


Espion 

Accrochez les wagons 
Tirage d’un dé truqué 
Tour de cartes 

Le jeu de Marienbad 
L’indésirable 
Compose 


Jour de la semaine 


Le jeu de la vie 


Thèmes et particularités 


A utiliser, si vous êtes malhonnête, dans 
d’autres programmes. 


Un jeu sur les mots, pour l'ordinateur. 


Une simulation simplifiée lusieurs 
9 
joueurs. 


Logique et difficile, pour un seul joueur. 
Jeu de réflexion, pour deux joueurs ou plus. 


Révisez vos notions de solfège, grâce à l’or- 
dinateur. 


Une base de départ, pour mettre au point 
votre programme. 


Un jeu de réflexion, pour deux joueurs. 
Un jeu sur les mots, assez simple. 


Laissez l’ordinateur créer des vocables 
nouveaux. 


Dites-lui votre amour en code. 
Pour les plus jeunes ; très visuel. 
Révisez vos connaissances en statistiques. 


Votre ordinateur a plus d’un tour dans son 
sac. 


Un jeu de logique pour deux joueurs, dans 
une version étendue. 


Vous êtes propriétaire. Arriverez-vous à 


mettre la main sur ce locataire indési- 
rable ? 


Faire de la musique, c’est d’abord l'écrire. 


Profitez-en pour faire le point sur les an- 
niversaires. 


Un grand classique, en deux versions : ma- 
nuelle et automatique. 
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Dimensionnement 
d’un tableau 
Recherche d’un 
élément dans un 
tableau et dans 


une chaine 
L’instruction DATA 


L’INSTRUCTION DIM, OÙ INSTRUCTION DE DIMENSIONNEMENT 
D'UN TABLEAU 





Les structures de tableaux sont très couramment utilisées en program- 
mation, se révélant même indispensables dans un grand nombre de cas. 
Si vous voulez, par exemple, entrer vos recettes et dépenses pour tous les 
jours du mois (on supposera pour simplifier des mois de trente jours) vous 
pourriez définir 39 variables appelées PERMIER JOUR, DEUXIEME 
JOUR, etc. Il est plus facile, et plus rationnel d'utiliser une boucle I, I 
variant de 1 à 30, et une variable R (1) pour les recettes, et D (1) pour les 
dépenses ; ce faisant, vous avez, sans le savoir, utilisé une structure de 
tableau à une dimension ; ceci ne pourra être admis par l’'ORIC-ATMOS 
que si vous l’avez auparavant prévenu que vous alliez utiliser un tel ta- 
bleau, en donnant une instruction DIM R (39) pour les recettes, et DIM D 
(30) pour les dépenses. 

On pourrait aussi imaginer de conserver dépenses et recettes dans un même 
tableau, en lui donnant cette fois deux dimensions : par exemple DIM RD 
(39, 2) (ou DIM RD (2, 39)). Ainsi, avec DIM RD (39, 2) on pourra 
convenir que RD (I, 1) représente les recettes, et RD (I, 2) les dépenses. 
Des tableaux de plus de 2 dimensions sont également possibles. 

On peut aussi concevoir des tableaux dont les éléments sont des chaînes 
de caractères, et non plus des nombres, avec 255 caractères au maximum. 


Ainsi DIM NOM (12) réserve 12 emplacements en mémoire, pour des 
mots de 255 caractères au maximum. 

Sur l’ORIC-ATMOS il n’est pas obligatoire de dimensionner un tableau 
qui contient moins de 19 éléments. 


LA RECHERCHE D'UN ELEMENT DANS UN TABLEAU : R (1) 


Si l’on a un tableau à une dimension, numérique ou alphanumérique, 
défini par une instruction comme DIM R (39) ou DIM N$ (29), le Ilème 
élément de ce tableau est repéré par R (1) (ou N$ (1)) ; il sera alors mani- 
pulé exactement comme une variable ordinaire (affectation, calcul, tests, 
etc.). 


Ainsi INPUT R (3) permet d’entrer à la main la valeur du 3° élément 
numérique du tableau R. PRINT R$ (5) permet l'affichage du 5° élément 
du tableau alphanumérique R$, etc. 


LA RECHERCHE D'UN ELEMENT DANS UNE CHAINE : MID$ 


Pour extraire le Ième élément de la chaîne alphanumérique A$, on utilisera 
l'instruction MID. 

Ainsi, si A$ = “BONJOUR”, (A$, 3, 1) donne le caractère N ; de plus 
MIDÉ (A, 3, 3) donne la sous-chaîne “NJO”. 


LE TRAITEMENT DE DONNEES MULTIPLES INSTRUCTIONS 
READ, DATA, RESTORE 


Pour remplir facilement un tableau, numérique ou alphanumérique, il 
sera intéressant d'utiliser des lignes DATA, qui contiennent les données 
inscrites les unes à la suite des autres, séparées par une virgule. 


Ainsi, on pourra écrire : 
DATA LEON, JULES, 13, RUE MARTIN... 


Ces données peuvent être lues dans des boucles FOR... NEXT, au moyen 
de l’instruction READ. On peut recommencer la lecture au début des DATA, 
à l’aide de l'instruction RESTORE. 
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Dé truqué 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

On veut essayer de fabriquer un dé truqué selon sa propre convenance. La 
méthode proposée ici consiste à définir au départ une probabilité de réa- 
lisation pour chaque type de tirage (soit la probabilité d'obtenir un 1, un 
2, un 3, etc. que chacune de ces probabilités soit comprise entre Ÿ et 1, et 
que la somme de toutes les probabilités soit un nombre très voisin de 1). 


LE PROGRAMME : 

Il utilise le générateur aléatoire de l’'ORIC-ATMOS supposé de qualité 
convenable Ga pourra aisément utiliser tout autre générateur, si besoin 
est). La boucle [ (79-149) s'occupe de l’entrée de chacune des probabi- 
lités, avec vérification à chaque entrée et sur le total (ligne 119) ; chaque 
probabilité est conservée dans une variable indicée E (1) : ligne 99 du 
programme. 

Le lancer de dé truqué est effectué à l’aide d’une autre boucle I (189-290), 
la ligne permettant le trucage se trouvant en 199. Un nouveau tirage 
pourra être effectué sur pression de ÿ-RETURN (ligne 220). 


POUR JOUER : 

Après le lancement de l’exécution par RUN, on obtient l’affichage de la 
question PROBABILITE DU DE 1, à laquelle on devra répondre par un 
nombre compris entre Ÿ et 1. Il conviendra de ne pas oublier que le total 
de toutes les probabilités entrées ne devra en aucun cas dépasser 1.1 (to- 
lérance de 9.1). 

Des messages d’erreurs pourront être affichés et le programme sera éven- 
tuellement relancé. Lorsque toutes les probabilités auront été définies, le 
premier tirage sera automatiquement effectué, et il suffira de presser les 
touches 9-RETURN pour effectuer les tirages suivants. On arrête le pro- 
gramme en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

Il sera évidemment bien tentant d’utiliser sournoisement ce petit pro- 
gramme pour améliorer vos chances de gain dans un jeu de hasard utili- 
sant des lancers de dés. On pourra alors envisager de figer les données 
définissant le dé truqué dans une variable Af, etc. On pourra aussi envi- 
sager de présenter les résultats correspondant à une série de lancers de dés 
sous une forme spectaculaire, qui mette le trucage en évidence... 


REM DE TRUGQUE 
PAPER 1:INE G:CLS 


PLOT 4,6, CHRSC 19: PLOT1.6, CHRSC 1 3: PLOTA, 8 
CHRSe 25 3: PLOTI, 8, CHRSC 25 

P=Q 

DIM Eté) 

FOR I=1 TO € 


PRINTRIT, 3%: L u 


PRINTRS, 3: "PROBABILITÉ DU DE "li: INPUT El: 
G P=P+Ec I: 


IF ECI)<A OR Etli?1 OR P:1.1 THEN 248 


4 PRINTU6X#I-4.,6; "DE "il 


PRINTRÉXI-4, SEC T1 

MEXT IT 

IF P<G.9 THEH PING:EUH 

WAIT 154:2AP:ZAP :2ZAP 
H=THTÉ RHDC 1 2#6+1 

FOR Isi T0 6 

IF Ne] AND RHDC132EC TS THEH 174 
HNEXT TI 


214 PRINT#Z, 15: "TIRAGE :":Mi" M EXPLODE 


PRINT: INPUT'FAIRE 9 - RETURN — 
POUF UH AUTRE TIRAGE":RS 

GOTO 174 

PRINTRS, 4: "IMPOSSIBLE :@= F <=1" 
P=P-Ec 1 


A PING:HAIT 244 
A PRIHTEZ, 4:;" u 


GOTO 94 


PRUEABILITE OU QE 6 Ÿ E.4 


DE 106 #OE 3 OE 4 DE % OE € 


TIRAGE : à 
ERIPE E - RETUEH - FOUR UH AUTRE TIFAG 
dt 
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Visions 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : dessin. 

Difficulté du jeu : facile. 


LE JEU : 

L’'ORIC-ATMOS vous permet, pour la première fois, d’entrer dans son 
intimité en vous laissant entrevoir sa propre représentation du monde ! 
Vous allez, en effet, lui proposer des mots, n’importe lesquels, et il va vous 
répondre en vous proposant une représentation graphique de ce que re- 
présente ce mot pour lui. Le jeu sera beaucoup plus amusant si vous le 
pratiquez à plusieurs, et vous pourrez quelquefois avoir des surprises. 


LE PROGRAMME : 

Une boucle I (49-120) se charge de réaliser les dessins. 

La ligne 50 permet de transformer en nombre chaque lettre du mot entré 
au début (ligne 30). Ce nombre sera ensuite traduit en base 2 par une 
boucle J (lignes 69 à 119) ; selon le résultat de cette transformation, un 
point sera imprimé, ou non (ligne 90). 


POUR JOUER : 

On débute l’exécution du programme par RUN, ce qui amène l’affichage 
de la question QUEL DESSIN. On répond en entrant un mot quelconque 
qui sera transformé en dessin par l’'ORIC-ATMOS dès que l’on aura frappé 
RETURN. 

Pour recommencer, il suffira de frapper 9 et RETURN, et CTRL et C pour 
finir. Je vous laisse savourer le dessin qu’il a réalisé lorsqu'il a connu le 
prénom de l’auteur de ce livre. 


EXTENSIONS POSSIBLES : 

La même idée peut être reprise en introduisant des éléments de symétrie 
dans les dessins, en ajoutant la couleur. On peut aussi imaginer de coder 
par cette méthode un certain nombre de dessins, que l’on introduirait au 
fur et à mesure dans la machine et l’on pourra alors créer un jeu dans 
lequel ORIC deviendra de plus en plus savant. On peut aussi réaliser un 
Jeu à deux joueurs dans lequel ORIC vous demande de trouver le mot qui 
correspond à un certain dessin, etc. 


IE Ur 
CREER, 


RENM YISIOMNS 

CLS 

INPUT"'QUEL CESSIN :"3iR# 
FOR I=i TO LENCR&5 
HESXASCEMIDEC RS, TI. 1532-7Z4f 
J=1:K=INTÉRMDE 1 3#6+1 
S=H/2-IHTCH/25 


A H=IHTOM£2 03: PLOT1, 145, CHR&CK 


IF S<54 THEN PLOTJ+15.1+5. CHR 1275 
J=. +1 

IF J{14 THEN 74 

NEXT I 

PRIHTRZ, 22; :PIHG 

IHPUT'APPUYER SUR SG - RETLUREH -"5R#& 
GOT 24 


GLIEL DESSIH °% JIACQUES 
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421 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : moyenne. 


LE JEU : 

Chacun des joueurs devra, à son tour, lancer 3 dés, et peut ensuite choisir, 
sur les deux coups suivants, s’il désire relancer ou non 1, 2 ou 3 dés. Il 
marque alors un score correspondant au nombre indiqué par les dés, sui- 
vant les règles choisies, et le joueur suivant procède de la même manière. 


LE PROGRAMME : 

Le nombre de joueurs est tout d’abord entré en ligne 30. 

La ligne 139 affiche le numéro de joueur et le nombre d’essais déjà effec- 
tués. 

Un sous-programme placé en ligne 4990, utilisé 3 fois dans la boucle J 
(209-250), réalise le lancer de dés. 

Les retirages sont effectués par les lignes 1900, 2000 et 3000. 

La variable R$ gère les 2° et 3° tirages. L’impression du résultat est réalisée 
dans tous les cas par les lignes 149-150. 

Les tests pour le nombre d’essais et pour le changement de joueur sont 
effectués aux lignes 269 et 280. 


POUR JOUER : 

On lance l’exécution du programme par RUN ce qui conduit à l’affichage 
NOMBRE DE JOUEURS. On entre le nombre de joueurs, et l’on tape 
RETURN. L'écran s’efface et affiche JOUEUR N° 1. ESSAI A, PARTIE P, 
ainsi que le tirage réalisé, et les noms des dés (A, B, C). 

Si l’on ne désire pas refaire de tirage, il suffit de frapper Ÿ et RETURN. 
La main passe alors au joueur suivant. 

Pour effectuer un autre tirage, il suffit de taper le nom du ou des dés à 
retirer, et de faire RETURN : par exemple, pour retirer A et C on tapera 
AC suivi de RETURN. 


Les joueurs suivants procéderont de la même façon. 


EXTENSIONS POSSIBLES : 

La plus évidente consiste à assurer la gestion des résultats des joueurs, en 
se référant aux règles de gain usuelles du jeu du 421. On pourra envisager 
l'affichage après chaque tour d’un tableau récapitulant les résultats des 
joueurs. 

On pourra aussi améliorer l’affichage des dés (se référer aux divers pro- 
grammes d’affichage des dés se trouvant dans le même ouvrage). 


14 R 


EM 421 


24 P=i 


39 C 
49 I 
54 C 
64 Pl 


F4 FOR Lei TO S:PLOTO,L+5, CHR$&C 193: PLOT1,L+5, CHRSC 1): MNEXT L 


80 K 
39 R 
199 
115 
129 
139 
148 
159 
169 
178 
189 
198 
288 
219 
229 
238 
248 
250 
264 
274 
284 
294 
340 
1aaa 
1914 
2498 
2916 
344@ 
3914 
4aaa 
4414 


LS: INPUT'HOMBRE DE JOUEURS :":H 

=] 

LS 

APER O:INK 7:PLOTS,4,CHR#C 22 3: PLOT1, 4, CHR#C G 


=9 
$=" ABC" 
GOTD 298 
K=K+1 


PRINTR17, 1: CHR 279; "J"; "421": PRINTE17, 2: CHR$C 27 95" J"; "421": 2AP:2ZAP:ZAP 


PRINT@Z, 4; "JOUEUR NO.";1;"  ESSAI"iK;"  PARTIE":P 
PRINT®@?,7:A:PRINTR17,7:B:PRINTR27,7;C 
PRINT®8, 9; "A": PRINTR189,9)"B":PRINTE28,9;"C" 
R$="":PRINTEZ, 14:;" de 
PRINT@2, 14, "ABC :";:INPUT R& 

IF R$="9" THEN 279 

R$=R$&+"DDD" 

FOR J=1 TO 3 

GOSUE 4908 

HB2MIDSC RS, J, 1) 

HaASCC KE 3-64 

ON *X GOSUB 1099,2009, 3090, 4099 

NEXT J 

IF K<3 THEN 114 

1=1+1:PING:'HAIT 54 

IF I<=H THEN 89 

P=P+1 

GOT 49 


RETURH 

C=D 

RETURH 
D=THTE RDC 1 3#6+1 2 
RETURH 


4il 


JOUEUR HO. 1 ESSAI 1 FARTIE 
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L’électricien fou 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de Jeu : solitaire. 

Difficulté du jeu : assez difficile. 


LE JEU : 

Un immeuble comportant 19 fenêtres, numérotées de 9 à 9, apparaît sur 
l'écran. Le joueur devra à chaque essai manœuvrer l’un des interrupteurs, 
en indiquant son numéro (de Ÿ à 9). 

En principe, la fenêtre correspondante devrait s’éteindre, mais il est aussi 
possible qu’une autre s’allume (ou s’éteigne). Il s’agit, bien sûr, d'essayer 
d'obtenir l’extinction des 19 fenêtres, avec le moins possible d’essais. 


LE PROGRAMME : 

Une table A, en ligne 59, contiendra l’état (allumé ou éteint) des 19 fe- 
nêtres. 

La boucle I (79-99) et l’autre boucle I (119-169) dessinent l’immeuble 
dans son état initial. 

La ligne 179 regarde si tout est éteint, auquel cas l’on ira en ligne 319 
afficher le nombre d’essais. 

La ligne 189 attend l'indication de l'interrupteur à manœuvrer. 

Les lignes 199 à 299 définissent le résultat de la manœuvre. 


POUR JOUER : 

RUN provoque l'affichage de l’immeuble, avec toutes les fenêtres allu- 
mées. 

À la question INTERRUPTEUR NUMERO, on répond en indiquant le 


numéro de l’interrupteur à manœuvrer, suivi de RETURN. 


Le résultat de la manœuvre est alors affiché sur l’écran (des fenêtres s’al- 


lument ou s’éteignent). 
On continue ainsi jusqu’à ce que toutes les fenêtres soient éteintes, et l’on 
obtient alors l’affichage du nombre d'essais réalisés. 


EXTENSIONS POSSIBLES : 

On pourra envisager un graphisme très amélioré avec si possible l’utilisa- 
tion de la couleur. On pourra aussi définir un jeu à deux joueurs, augmen- 
ter le nombre de fenêtres, modifier la formule définissant l’allumage ou 
l'extinction. 


REM L'ELECTRICIEN FOU 
PAPER 7 

IHK 4 

M=9: PRINT CHRS$( 170 
DIM A6195 

CLS: PLOT1,6, CHR&C2) 
FOR 1=1 TO 7 

PLOTA, I,CHRS#( 16 

MEXT I 


199 T=@ 

119 FOR Iz1 TO 19 

129 T=T+AC1) 

134 PRINTRZ2#1+5,3)" " 

144 IF ACI)eQ THEN PLOT2#1+4,3, CHR& 4 2+CHRSG( 255 à 
159 PRINT@2#1+4,6; 1-1 

169 HEXT I 

174 IF T=18 THEH 314 


189 


PRINT, 14: "IHTERRUPTEUR HUMERO :"3:PFING:IHPUT H 


194 NeN+1 


298 


M=M+1 


219 IF ACNi=1 THEN 299 

224 ACH)=1 

238 R=TANCRHDE 1 3+N/RHD6 1 3-H ST NC RNDE 1 3/43 3EXSTNC EH 
248 N=INTC1B#CR-INTCR 2355 

258 1F N=Q THEH N=INTé RHDE 1 341841 3 

268 IF ACMN)=1 THEN 299 

274 ACMo=1 

288 GOTO 144 

298 ACH)=@ 

399 GOTO 239 

314 PRINT:PRINT'TROUVE EH ":M;" ESSAIS" :EXPLODE 


INTERRUPRTEUR HUMERO + 2 
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La course au 20 


REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : logique (deux joueurs, ou plus). 
Difficulté du jeu : moyenne. 


LE JEU : 

Il est possible d'imaginer pour ce jeu diverses règles, et nous n’avons retenu 
ici que la règle usuelle pour deux joueurs, qui en fait un jeu apparenté aux 
jeux de déplacement, ou d’allumettes : 4 tas de 29 étoiles vont apparaître 
en début de partie, et chaque joueur peut prendre autant d'étoiles qu’il le 
désire ; mais ceci dans un seul tas à la fois. Celui qui prend la dernière 
étoile est considéré comme perdant. 


LE PROGRAMME : 

La boucle I (39-59) dessine 4 rangées de 29 étoiles. 

La variable F, dimensionnée en ligne 70, servira à enregistrer le nombre 
d'étoiles prises dans chaque rangée. 

La variable T contiendra le nombre total d'étoiles enlevées (ligne 60). 

La ligne 129 va contrôler qu'il reste suffisamment d'étoiles sur la ligne 
indiquée. 

Les boucles [ (159-190) et J (169-189) suppriment les étoiles ; la ligne 
229 teste la fin de partie. 


POUR JOUER : 

Lancer le programme par RUN ; le terrain de jeu s’affiche, puis les ins- 
criptions JOUEUR 1 et LIGNES, puis CASES. On répond en entrant un 
numéro de ligne (entre 1 et 4) suivi de RETURN, et le nombre d'étoiles à 
enlever suivi de RETURN. Les étoiles sont alors supprimées, et c’est au 
tour du deuxième joueur. 

La partie se termine, lorsque la dernière étoile a été enlevée, par l’affichage 
du joueur gagnant. 


EXTENSIONS POSSIBLES : 

Outre une amélioration de la qualité du graphique et des contrôles, de 
nombreuses variantes sont envisageables, en modifiant si besoin est, les 
règles de départ : on peut autoriser l’enlèvement d’un nombre impair 
d'étoiles seulement, ou alterner pair et impair, ou tirer au hasard le nom- 
bre à enlever, ou encore jouer à plusieurs. 


14 PEN LA COURSE AU ZE 

“4 CLE 

34 FUR Teil TO 4 

4f PRIHTRE,24I:I::FOR Ke TO ZA: PLOTE+E, SET. MK'OOMEXT K 
SA MEXT I 

A Tel 

F4 CIN Fed 
SA al 

A4 PRINTRE, LE: MJOUELR "iB:FIHG 
144 FRTHT:THPLT'LIGHE "il 

114 PRINT: INEUT'CASES 15 
LEA CIF C+Filiief THEH GA 
154 FL ep CL 40 

144 TaT+C 

A FÜR Izil TI 4 

FOR JeFÉT eC4i TO FT 

IF IsL THEH PRINTR2F7-.I, SKTi" "SHOT: HAIT 34 
HET 

HE#T I 

ExE+1 





CRE 


cs 
ii 


inmrne hp 


214 IF Be THEN B=l 
224 IF T<E@ THEN 34 


Eu Po re 19 LG CG Ji LA 
6 9 D Gi 


Fo 


LE 
x, 


PRIHTULE JIQUELIR "Bi" GAGHE":EXPLUTE 


LOCERENENE TES ET ETES: 
Énrrrr rt Tr Et ENTT: 
ARAAAELALE 
AÉREEÉEEÉELÉAEX 


JOUEUR 2 
LIGNE :7 1 
CASES :7 10 
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Musique 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu éducatif. 
Difficulté du jeu : moyenne. 


LE JEU : 

Il se présente comme un exercice d'apprentissage du solfège : l'appareil 
annonce une note (en clé de sol), suivie de la mention GRAVE ou AIGUE, 
selon sa place sur la portée. Il faudra répondre en indiquant sur quelle 
ligne la note sera affichée. 

La note est alors dessinée sur la portée, suivie d’un message BRAVO ou 
PERDU, selon que l’on avait trouvé juste ou non. 


LE PROGRAMME : 

La boucle I (59-79) dessine la portée. Une deuxième boucle I (89-129) 
affiche les numéros des lignes. 

La ligne 139 définit le nom des notes, et la ligne 149 réalise le tirage 
aléatoire d’une note. 

Le nom de la note est calculé à la ligne 159 et il est affiché par la ligne 
169, suivi de la mention GRAVE ou AIGUE, selon le cas. 

La réponse sera entrée en ligne 199. 

La ligne 209 s’occupe du décodage de la réponse. 

La ligne 219 affiche la note. 

Les lignes 229 et 239 regardent si l’on a gagné ou perdu et affichent le 
message correspondant. 

La ligne 249 permet de faire un nouvel essai. 


POUR JOUER : 

On lance le programme par RUN. 

On obtient alors l’affichage de la portée, ainsi que le nom de la note à 
placer et la question NUMERO DE LA LIGNE. 

On répond en donnant un numéro de ligne (de 1 à E) suivi de RETURN. 
La note est alors dessinée et le message BRAVO ou PERDU apparaît, dans 
ce cas, à l’écran. 

On doit taper les touches G-RETURN pour continuer; et s’arrêter en tapant 
CTRL et C. 


EXTENSIONS POSSIBLES : 
On peut étendre à une autre clé que la clé de sol, on peut introduire de la 
couleur, des sons, etc. 


14 REM MUSIQUE 


es IR D 9 


ee Lt C0 JM CH À 2 
D EX | 


me re 
Co lo 
ne 


144 


PAPER 9 


PRIHTRE, 24144; CHR 27 33 °C" 


14 


INK € 

CLS 

FOR Ii TO S 
HEXT I 

FOR Izi TO 
PRIHTREZ, I+2: 


IF Ié=9 THEH PRIHT I 
IF 129 THEN PRINT" ";CHRGCI+55 


NEXT I 


H#="ST LA SOLFA MI KE DO 
= INT RHDIE 1 ET +1 5 


A Tes 1-PHINTE C1 347 3 


PRIHTEZ,18: "NOTE ":MIDS$é HS. SET+1,3 0: 


A IF #£e7 THEN PEINT" AIGUE" 
4 IF #27 THEN PRINT " GRAVE" 


PRIHT:IHPUT'HUMERC CE LA LIGNE :"5LS$ 
af ASC LS 1-48 SHC LEE Ms M ABC LG SSH LE = "A 


PLOT15S, 4, CHR MMS M PLOT 15, 6410 CHR$E GS EN: 


FLOTIS, 442, CHRS$C 3 +" 0" 


IF Lex THEH PRIHTRZF, 264; "BRAVO: ZAP: ZAP : ZAP 


IF Léx THEH PRINTRZ7, 26; "PERDU": EPLODE 
PRIHT:INPUT'FAIRE @ - RETURN - 
POUR CONTINUER" :FS# 


GOT 4f 


1 
5 
3 
c 
£ 
É 
3 
es 
E 


HÔTE F4  GRAUE 
HUMERQ DE LA LIGHE :% 4° PEROU 
FAIRE © - RETURH - FOUR CONTINUERT 
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Poker 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu contre l'ORIC-ATMOS. 
Difficulté du jeu : facile. 


LE JEU : 

C’est une simulation d’une partie de poker traditionnelle, effectuée avec 
un jeu de 32 cartes, dans laquelle le joueur aura, pour partenaire, 'ORIC- 
ATMOS. 

Le joueur recevra 5 cartes, repérées par des numéros de 1 à 5, et pourra 
décider de changer certaines cartes en annonçant celles qu’il écarte. Sa 
nouvelle donne sera alors affichée, et c’est ensuite au tour de l’ORIC- 


ATMOS de jouer. 
LE PROGRAMME : 


Les lignes 59 et 69 définissent les cartes. Une variable N est dimensionnée 
à 15, en ligne 40, pour recevoir 19 cartes joueur et 5 cartes ORIC. 

Le tirage sera effectué par une boucle I (89-149) et le contrôle par une 
boucle J (119-130). 

L’affichage des cartes est réalisé par le sous-programme 500-600. 

Une autre boucle I (209-220) réalise le deuxième tirage du joueur, la ligne 
240 permettant le deuxième affichage, et la boucle 1 (590-570) où l’on 
entre directement après, réalisera l’affichage du jeu machine. 


POUR JOUER : 

L'ordre RUN lance l’exécution du programme, et les 5 premières cartes 
du joueur sont alors affichées. 

A la question CARTES REFUSEES, le joueur peut répondre F suivi de 
RETURN s’il veut arrêter la partie. Pour jouer, 1l répondra simplement @ 
et RETURN s’il s’estime servi, ou il entrera les numéros des cartes qu'il 
refuse suivis de RETURN. 

Par exemple, s’il tape 235 et RETURN, son nouveau jeu conservera les 
cartes 1 et 4. Son jeu sera alors affiché ainsi que celui de l’ORIC, ce dernier 
n'ayant pas, dans ce programme, la possibilité de reprendre des cartes. 

Il suffira ensuite de faire 9 et RETURN pour démarrer une autre partie. 


EXTENSIONS POSSIBLES : 

Elles seront, bien sûr, très nombreuses, depuis un affichage graphique en 
couleur des cartes jusqu’à l’amélioration du jeu de l’ORIC, l'introduction 
des règles sur les paris et même, pourquoi pas, des possibilités de bluff. 


14 REM POKER 
24 PAPER 9 


INK 6 


4@ DIM N615 2 

59 V#="7 8 9 19VACAROAS" 
69 C&="TRCACOPI" 

74 CLS 

84 FOR I=1 TO 15 

98 NC I = INTÉ RND6 1 2432) 





IF I=i THEN 148 

FOR Jai TO 1-1 

IF NCIDeN(J) THEN 99 

NEXT J 

NEXT I 

K=9 : P=9 

PRINTR2, 12; "CARTES REFUSEES" :PING 
GOSUB 594 

IF R$="F" THEN END 


à IF R#="9" THEN 234 


FOR Is1 TO LENCRS 5 
NCVALCOMIDSCRS, I, 132393=H6 T45 

NEXT I 

CLS :Pæ1 

GOSUB 594 

KekK+19 

FOR Izæl TO 5 

Je 2XINTENCI+K 2/8 +1 
FæZ2%(CMCI+KO-B#IMTE ME T+K3/8 3341 
RS=MIDSEC VS.F,253 

PRINTE74I-4,K:1 

PRINTE7#I-5,K4+2: RW: "1" IDC CS, 2) 
PRINTRP#I-S, K49; M 

NEXT I 

IF Pel THEH Peÿ : RETURH 
PRINTRZ, 16: "FAIRE @ - RETURN -":: 
INPUTRS:IF Kx 19 THEN EXPLODE:GOTO 79 
RETURH 


4 5 


19:FI UA:C0 


FAIRE @ - RETURN -7 
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Le jeu de saute- 
mouton 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

Bien que l’idée en soit très simple, il ne sera pas forcément évident de 
découvrir une stratégie convenable. On dispose de 3 moutons rouges et de 
3 moutons bleus, représentés par des pavés de couleur, qui occupent 
8 cases ; les moutons peuvent se déplacer d’une case à une case libre. 
Plusieurs règles pourront intervenir, selon votre propre estimation de l’in- 
térêt de telle ou telle : soit l’on contraint les moutons à se placer sur la 
première case disponible, en sautant éventuellement par-dessus les mou- 
tons adverses, soit on leur laisse choisir leur case d’arrivée, ce qui peut 
rendre les parties interminables, à vous de choisir. 


LE PROGRAMME : 

La boucle I (59-89) initialise une table A (1), qui contient les positions des 
moutons. La boucle I (199-159) dessine le terrain de jeu et les moutons. 
Les lignes 179 et 189 s’occupent du texte et des entrées. 

La ligne 199 contrôle la validité du coup. Le changement de joueur est 
réalisé en ligne 229. 


POUR JOUER : 

On commence l’exécution du programme par RUN. On obtient alors un 
affichage JOUEUR 1, qui indique le numéro du joueur, suivi de la question 
DEBUT, FIN. 

On répond en indiquant le numéro du pion à déplacer suivi de RETURN, 
puis le numéro de la case d’arrivée, suivi de RETURN. 

Le déplacement est alors réalisé ; puis le deuxième j Joueur procède de la 
même façon. Le gagnant est en principe celui qui réussit à placer ses trois 
moutons côte à côte sur les emplacements initialement occupés par l’ad- 
versaire. 


EXTENSIONS POSSIBLES : 

On commencera par rajouter un contrôle du joueur gagnant. 

On peut également améliorer la présentation en dessinant de vrais mou- 
tons, rendre le jeu plus attractif en les numérotant, et en imposant un 
certain ordre à l’arrivée. 

Enfin, on pourra définir une stratégie pour l'ordinateur, en figeant les 
règles. 


164 
174 
154 
194 
248 
219 
228 
234 


REM LE JEU DE SAUTE-MOLITOM 
CLS 

DIM AC&S 

AG LG: A Set 

FOR I=1 TO 3% 

AG I+1=1 

AG I+doi=-1 


MEXT I 
H=1 
FOR I=1 TO & 


PRIHT @Gd#I+1.8:7 

PLOT4#I+1,6, CHARGE F4": ZAP 

IF ACI)z=1 THEH PLOT4#I+1,6, CHRGE LCR ZE à 

IF ACli=-1 THEN FLOT4#T+1, 6, CHARGE EE CHRGE TEE 

MEAT I 

J=1-CHe-1 

PLOT1,13, CHRSE EHESS 0 PRIMTIRZ, 153 MIOLIEUR se FING 


PRIHT:IMHPUT'OGEBUT ,; FIH :"iCF 
IF ADOYESH OR ALFA THEN 174 
AC D =9 

ACF =H 

H=-H 

GOT 144 


JOUEUR: : 
DEEUT , FIH :T 4,5 
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Lettres 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

La règle est fortement inspirée d’un jeu de lettres très connu en France, 
pratiqué notamment dans une émission télévisée (les chiffres et les lettres). 
L’ORIC-ATMOS choisit au hasard un certain nombre de symboles (voyelles 
et consonnes) dans l’alphabet latin, et chacun des joueurs devra indiquer 
la longueur du mot qu'il a réussi à obtenir (l’appareil ne vérifiera pas si le 
mot est correct !). 

Le score total de chaque joueur est affiché ensuite. 


LE PROGRAMME : 

La boucle I (99-129) choisit dans l’alphabet entre 7 et 12 lettres, en 
fonction de la variable aléatoire L, tirée en ligne 60. Pour éviter d’avoir 
trop de consonnes, on utilise en ligne 119 une petite astuce, qui consiste à 
refaire au hasard un tirage dans la table A$, contenant des voyelles (on 
peut en avoir plus ou moins en utilisant d’autres RND). 

La boucle 139-180 demande à chacun des joueurs la longueur de son mot. 
Les lignes 199 et 299 comparent les résultats et totalisent le score de 
chaque joueur, affiché par la ligne 210. 


POUR JOUER : 

On lance l’exécution du jeu avec RUN. 

Les lettres sont alors affichées, puis la question JOUEUR 1 LONGUEUR 
à laquelle le premier joueur répond en donnant la longueur du mot qu'il a 
obtenu (l’autre joueur devra toutefois vérifier si le mot est correct) ; puis 
le joueur 2 fera de même et le score de chaque joueur sera alors affiché. 
Pour continuer la partie, il suffira d’appuyer sur les touches RETURN. 
On devra faire CTRL et C pour finir. 


EXTENSIONS POSSIBLES : 

On pourra bien entendu songer à introduire une temporisation avant de 
demander leurs réponses aux joueurs. 

On pourra aussi entrer non point la longueur du mot, mais le mot lui- 
même, l’adversaire devant alors répondre à la question CORRECT OÙ 
NON ? On peut aussi étendre le jeu à plus de deux joueurs. Et pourquoi 
ne pas essayer de définir un jeu contre l’ORIC-ATMOS, auquel on aurait 
auparavant entré une liste de mots assez longue, dont il afficherait les 
lettres dans le désordre, avec éventuellement quelques lettres de complé- 
ment choisies au hasard. 


REM LETTRES 
S=9: Je) 

CLS 

PAPER 6:INK 4 


59 FOR Ixi TO 3:PLOT 9,1+5,CHR&C 199: PLOT 1,1+5,CHRSC LS: MEXT I 
69 LeINTCRNDE 1 246472 
79 A$="AEIOUER" 

89 PRINTR2,6; "LETTRES : 


239 


FOR Izi TO L 

PRINTER+2%I, 6; CHRSC INT RDC 1 2426465 2 2 

IF RNDC13<9.4 THEN PRINTRE+2%1I,6: MID AS, 

INT RNDE 1 24741 2, 10 

NEXT I 

Is ; 
PRINT@2,19;"JOUEUR :";1;:PING: INPUT" - LONGUEUR :"5L 
PRINTE27,18:" s 

IF Iei THEN Pel 

Iml+i 

IF 1<3 THEN 149 
SaS+(P AND P>L) 
JaJ+(L AND L>P5 
PRINTR2, 13; "SCORES - JOUEUR 1:"3S3" - JOUEUR 2:":J 
PRINT: INPUT'TAPER 9 - RETURN - POUR CONTINUER":R& 
GOTO 59 


LETTRES UOUEOBECE 


JOUEUR : Z — LONGUEUR :# 


SCORES - JOUEUR 1: 9 - JOUELUR 2: 5 
TAPER @ - RETURH - POUR COHTIHUERT 
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Machinamot 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : jeu de hasard (sur des mots). 
Difficulté du jeu : aucune. 


LE JEU : 

Ce très court programme permet à l'ORIC-ATMOS de faire la démonstra- 
tion de ses capacités à manipuler des chaînes de caractères : on part sim- 
plement d’un préfixe et d’un suffixe d’origine grecque, que l’on va assembler 
au hasard ; on tombera bien sûr, de temps à autre, sur des mots absurdes 
ou même légèrement équivoques. 

Un nouveau mot est confectionné à chaque essai, mais il est possible d’ob- 
tenir plusieurs fois le même mot. 


LE PROGRAMME : 

Deux variables A$ et B$ sont dimensionnées à 15 en lignes 50 et 69 : l’une 
contiendra les préfixes, l’autre les suffixes (si l’on désire rajouter des pos- 
sibilités, 1l suffira de modifier cette limitation à 15). 

La boucle I (79-99) lit les lignes DATA (160-180) concernant les préfixes 
suivis des suffixes. 

La ligne 100 effectue le choix d’un préfixe au hasard. 

La ligne 119 effectue le choix d’un suffixe au hasard. 

Le mot obtenu en ligne 129 est affiché par la ligne 130, puis on recom- 
mence (ligne 150). 


POUR JOUER : 

Lancer l’exécution du programme par RUN. Un premier mot sera immé- 
diatement affiché, puis un nouveau mot sera affiché à la suite du précé- 
dent. 

Taper CTRL et C pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On pourra très facilement augmenter la liste des mots disponibles. 

On pourra aussi utiliser un procédé analogue pour faire confectionner des 
phrases à l’ordinateur, lui faire inventer des poèmes, etc. On pourra aussi 
transformer le programme initial en un jeu de société qui consisterait, par 
exemple, à prendre des paris sur le prochain mot qui va apparaître. Et 
confier, éventuellement, la gestion des paris à l’'ORIC. 


19 REM MACHINAMOT 

20 PAPER 1 

38 INK 3 

48 CLS 

39 DIM ASC 15) 

69 DIM BC 15) 

78 FOR I=1 TO 15 

89 READ AG I2,BS%€ I 2 

90 NEXT I 

199 I=INTE RND 1 241541 

119 J=INTÉ RDC 1 2#15+1 2 

129 CAeA&C I >+B86 5 

139 PRINT C$ 

148 PING:UAIT 259 

158 GOTO 199 

168 DATA ANDRO, CRATE , CO5M0O, PHILE , MICRO, PHOBE , 
HELIO, TROPE , SEX0, GYNE 

179 DATA STEREO,MANE , PALEO, HAUTE , MACRO, FHAGE , 
HYDRO, FUGE ; STENO, PATHE 

184: DATA PATHO, CARLE , OLEO, DERME ; MYTHO, SCOPE : 
HOMEO , YVORE , OCTO, PHONE 
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H 
COS 
FÉ 
l Lai 
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H 
P 
nm 
H' 
Q 
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Espion 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : jeu de réflexion. 
Difficulté du jeu : facile. 


LE JEU : 

Le programme peut servir simultanément de codeur et de décodeur de 
message secret, suivant une méthode très facile à mettre en œuvre sur ce 
type d'appareil. 

Un petit générateur aléatoire situé en fin de programme est utilisé pour 
modifier de façon arbitraire chaque lettre du message ; on devra bien 
surveiller à utiliser toujours le même nombre (noyau) pour commencer le 
codage ou le décodage de deux messages identiques. 


LE PROGRAMME : 

Le noyau initial (qui sera un entier quelconque) est entré en ligne 30 ; le 
message est entré à la ligne 50. 

La ligne 60 permet de choisir entre les options de codage et de décodage. 
La boucle I (89-150) est utilisée soit pour effectuer le codage, soit pour 
effectuer le décodage. 

La ligne 109 appelle le générateur aléatoire. 

La ligne 119 réalise la transposition des lettres. 

Les lignes 129 et 130 vérifient que l’on reste bien dans les limites autori- 
sées. 

Les résultats seront imprimés par la ligne 160. 

Les lignes 1000 et 1039 contiennent le générateur. 


POUR JOUER : 

Lancer le programme par RUN. 

Entrer ensuite un entier N qui servira de noyau pour le générateur (il 
faudra le retenir pour le décodage). 

Puis taper le message, suivi de RETURN. 

Choisir l’option C pour CODER, et l’option D pour DECODER, et taper 
RETURN. 


Le message codé ou décodé, selon le cas, sera alors affiché. 


EXTENSIONS POSSIBLES : 

On pourra étendre le codage à d’autres signes que les lettres de l’alphabet, 
utiliser éventuellement plusieurs générateurs, introduire dans le message 
un codage du ou des nombres ayant servi de générateurs, etc. 


19 REM ESPION 
26 CLS 

39 INPUT'DONNEZ VOTRE CODE :":N 

49 Az1/H 

S@ PRINT: INPUT'YOTRE MESSAGE :":A8 

68 PRINT: INPUT"VOULEZ-VOUS CCOODER OU CDECODER :":RS 
7a $= LL 

84 FOR 1=1 TO LENCAS? 

34 T=ASCCMIDSC AS, I, 12) 

189 GOSUB 1028 

119 T=T-AKCCRE="C" 3€ RE=ND" 33 

126 IF 1229 THEN T=T-26 

139 IF T<6S THEN T=T+26 

149 EB=BS+CHRSCT ) 

159 NEXT 1 

164 PRINT :PRINT"RESULTAT :";B8:EXPLODE : EHD 

1909 A=cCA+3, 14159 "8 

1918 A=A-INTC A) 

1929 A=INT( 26#A+1 ) 

1939 RETURN 


OOHHEZ VOTRE CODE :7 12734 

VOTRÉ MESSAGE :7 CONJOUR MADAME 
LOULEZ-VOUS £COOOER OÙ CONECOOER :? © 
RESULTAT :OYUEMUR; FEBEKF 


DONNEZ VOTRE CODE :7 1234 

VOTRE MESSASE :7 OYUEMUF; FEBEKF 
UOULEZ-UOUS €CYO0ER OÙ CO'ECOUER :7 
RESULTAT : BOHJOURTMADAME 
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Accrochez les wagons 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : solitaire. 
Difficulté du jeu : facile. 


LE JEU : 

Il faut essayer d’accrocher, le plus rapidement possible, la locomotive avec 
son wagon, qui apparaissent tous deux en début de partie, en deux endroits 
plus ou moins éloignés de l’écran. On devra pour cela déplacer la loco- 
motive en indiquant la suite des mouvements à effectuer (sous forme co- 
dée : H pour une case vers le haut ; B pour une case vers le bas ; D pour 
une case vers la droite et G pour une case vers la gauche). 


On tapera, par exemple : BBGDHHH. 
LE PROGRAMME : 


Les lignes 40 et 50 dessinent la locomotive, la ligne 60 le wagon, et les 
roues sont en ligne 70. 

La position initiale de la locomotive est définie par les lignes 90 et 100, 
celle du wagon par les lignes 110 et 120. 

La ligne 139 évite qu'ils soient initialement trop proches l’un de l’autre. 
Les lignes 159 et 169 réalisent l’affichage du wagon et les lignes 179, 180 
et 199 celui de la locomotive. 

Le test de fin est en ligne 200. 

Les mouvements à effectuer sont entrés dans une variable alphanumé- 
rique R$, en ligne 219, et sont décodés dans une boucle I (249-270) pour 
être exécutés en ligne 280. 


POUR JOUER : 

RUN permet d’afficher les positions de départ de la locomotive et du wa- 
gon. | 

On tape alors la série des déplacements à effectuer, sous la forme 
DDDHHHBHGSG, suivie de RETURN. 

La locomotive sera alors affichée dans sa nouvelle position, et l’on recom- 
mence, jusqu’à ce qu’elle soit accrochée au wagon. 

On obtiendra alors l’affichage du score. 


EXTENSIONS POSSIBLES : 

Il sera intéressant de prévoir la perte de la partie si, par accident, au cours 
du déplacement, la locomotive vient en collision avec le wagon. 

On pourra aussi prévoir plusieurs wagons, et un ordre d’accrochage, jouer 
à plusieurs avec plusieurs locomotives, dessiner les voies ferrées, introduire 
des obstacles à contourner obligatoirement d’un certain côté, etc. 


REM ACCROCHEZ LES WAGOHS 
PAPER 6 

INK 4 
DSæCHRGC 1 34" 7" 
AB=CHRGC 1 24-83" 
B$=CHRSC 3 +" (= 7" 
C$= QU a | g" 
N=g 
LY=IHTÉ RNDC 1 243343 2 

LH INTÉRNDE 1 3419425 

WYæ IMTÉ RND6 1 243343) 

Wxæ INTE RNDE 1 3#19+2 

IF ABSCLX-WXx (4 THEN 396 


a CLS 


PLOTHY, Lx, B% 

PLOTUHY+1,Mx+1, CS 

PLOTLY,L#-1, D 

PLOTLY-1.LX4, A$ 

PLOTLY+1,L#4+1,C$ 

IF LxeWx AND WYeLY-5 THEN 349 

PRINTRZ,22: "CHEMIN À SUIVRE CDGGHB,,,53:";: INPUT R& 
Ka : Y=9 

Neh+1 

FOR 1x1 TO LENCRS 

KaxkCMID®CRS,I,153="6" AND LKx<22 +6 MIDS&CRS, TI, 12="H" 
AND L#3153 


260 MeV-CMIDCRS, 1, 1="D" PND LY<374CMIDSCRS, I, 1" 


AND LY3>2 
NEXT I 
LkeLk+x:LYeL T4" 


3 GOTJ 149 


PRINTEZ,22;: "BRAVO : TROUVE EN "Hi" COUPS" 
EXPLODE 


CHEMIH à SUIURE COGGHB...3:7 ODOOOCHH 
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Tirage d’un dé truqué 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : moyenne. 


LE JEU : 

Il reprend une idée d’un programme précédent (DE TRUQUE) dans une 
application statistique : on fabrique un dé volontairement truqué, que l’on 
va lancer un certain nombre de fois, et l’on dresse un tableau des résultats. 


LE PROGRAMME : 

Les probabilités désirées pour chaque tirage sont introduites par une boucle 
1 (79-140 )avec toutes les vérifications de validité nécessaires. Le nombre 
de tirages demandés est introduit en ligne 169. 

La boucle J (179-259) comptabilise les tirages. 

La boucle I (199-219) assure la conformité de chaque tirage avec les 
probabilités introduites en début de jeu. 

Les résultats sont comptabilisés en ligne 229, et affichés grâce aux lignes 


239 et 249. 


POUR JOUER : 

Commencer l’exécution en frappant RUN, puis à la question PROBABI- 
LITE DU DE 1, introduire un nombre compris entre Ÿ et 1. 

Faire de même pour les dés 2, 3, etc., sans oublier que le total des proba- 
bilités introduites devra être proche de 1. 

Ensuite, à l'affichage de la question NOMBRE DE TIRAGE, on introduira 
un entier suffisamment grand, suivi de RETURN. L'affichage des résultats 
mettra d'autant plus de temps à apparaître que l’entier introduit sera 
grand. 

Les résultats sont affichés sous les numéros des tirages : ainsi 32.3 appa- 
raissant sous le 1 signifie que le tirage de 1, auquel on avait affecté une 
probabilité de 9.3, a été réalisé 32 fois. 


EXTENSIONS POSSIBLES : 

On peut envisager d'améliorer la représentation des résultats en utilisant 
par exemple un histogramme, ou toute autre méthode graphiquement plus 
parlante. 


Fee DE TRUQUE 


PAPER 6:INK 4 
FOR 1=1 TO 5:PLOTG, 4+1, CHR 182: PLOTY, 13+1I,CHRSC 19 :NEXT 
DIM EC63 
P=a 
FOR Izi TO € 
PRINTE2,3)" Ÿ 
PRINT®E2,3; "PROBABILITÉ DU DE ";1;:INPUT ECI) 
PsP+E( TI à 

IF ECI2<@ OR E(I132>1 OR P>1.1 THEN 349 
PRINTREXI-4,6;"DE "il 

PRINTREXI-4,8:EC TI) 

NEXT I 

IF P<4.9 THEN RUN 

PRINTEZ,11:"NOMBRE DE TIRAGES :";3:INPUT P:PRINT CHRS( 172 
FOR Ji TO F 

N=INTC RNDC 1 34641 2 

FOR Isi TO 6 

IF Ne AND RHDG123ECTI3-INTCECI55 THEN 184 
HEXT I 

ECHI=ECHo+1 

PRIMNTREXN-2, 15: 

PRINTOEXH-3, 17: ECM 

MEXT J 

EXPLODE : EHD 

PRINT®2,4; "IMPOSSIBLE :gés P <=1" 

P=P-Ec T5 

WAIT 298 

PRIHTEZ,4;" 

GOTO 36 


PROBABILITE OÙ DE 6 * 9.3 


DE 1 UE 20E 3 UE 4 DE S OE 6 
1 85 25. 2 .2 .3 


NOMBRE CE TIRAGES :7 299 


1 2 3 4 5 
14.1 13.65 11.95 69.3 31.2 
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Tour de cartes 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu de prestidigitation. 
Difficulté du jeu : facile. 


LE JEU : 

C’est un tour assez facile mais, ici, les cartes sont manipulées sous vos yeux 
par l'ORIC-ATMOS qui tient le rôle du prestidigitateur ; 21 cartes, prises 
au hasard dans un paquet de 52, sont affichées, et le joueur devra retenir 
mentalement l’une des cartes présentées. Puis, il devra indiquer à l’'ORIC- 
ATMOS dans quelle colonne (1", 2° ou 3° à partir de la gauche) se trouve 
la carte choisie ; les cartes sont alors redistribuées et le joueur indique de 
nouveau la colonne correspondant à sa carte ; ceci est fait encore une fois 
et, au 4 affichage, l’'ORIC-ATMOS est en mesure de deviner la carte choi- 


s1e. 


LE PROGRAMME : 

La boucle I (69-129) permet de choisir, au hasard, 21 cartes sur 52, et la 
boucle emboîtée J (80-190) permet de s’assurer que l’on ne réalise pas 
deux fois le même tirage. La ligne 149 contient les couleurs des cartes ainsi 
que les noms des cartes figures (VA, DA, RO, AS), dans une variable 
alphanumérique B$. 

La boucle I (159-240) réalise l’affichage du jeu. 

La ligne 160 décode la couleur de la carte. 

La ligne 179 choisit la position d’affichage. 

La ligne 180 décode la hauteur. 

L’affichage proprement dit est effectué de la ligne 199 à la ligne 230. 

La ligne 260 permet au joueur d’entrer le numéro de la colonne où se 
trouve sa carte. La boucle J (390-329) réalise le brouillage, et les boucles 
emboîtées J (359-390) et I (369-389) fabriquent la nouvelle variable A$ 


à utiliser pour le prochain affichage. 


POUR JOUER : 

On lance le programme par RUN. 

On obtient un premier affichage de 21 cartes réparties sur 3 colonnes. 
On indique alors le numéro (1, 2 ou 3) de la colonne où se trouve la carte 
choisie, suivi de RETURN. 

On obtient un 2° affichage et l’on fait de même ; puis un 3° affichage et 
l’on fait de même. - 

Au 4° affichage, la carte choisie est automatiquement affichée. 

On sortira du programme en tapant CTRL et C à la place du numéro de 
la colonne. 


EXTENSIONS POSSIBLES : 

On peut envisager une amélioration de l’affichage en écrivant les noms des 
cartes en entier, ou même, en dessinant de véritables cartes, en couleur. 
On pourra aussi essayer de programmer d’autres tours, utilisant le même 
principe de base, mais avec davantage de cartes, etc. 


19 REM TOUR DE CARTES 
24 CLS:PAPER S5:INK @ 
38 FOR 1=1 TO 9:PLOTO,1,CHR$< 193: PLOT12,1,CHR#C 18) :PLOT26,1,CHR& 17 
49 MEXT I 
59 A$="": PRINT CHR 17) 
64 FOR Iz1 TO 21 
F6 B$=CHR#C INT RND( 1 2452+38 2) 
89 FOR .I=1 TO LENCA#) 
98 IF BS=MID$(A$,.J, 1) THEN 78 
194 HMEXT .J 
119 AS=AS+ES 
129 NEXT I 
139 H=3:Pai 
140 B8="TRCACOP I'YADAROAS" 
159 FOR I=1 TO LENCAS2KP-11%#CP=9) 
168 S=INT(CASCCMIDSCAS,1,122-382/13) 
178 Ja ?#INT(CCI-13/72 
189 T=ASCCMIDECAS, 1,122-37-13%S 
199 IF Pæÿ THEN CLS:PRINTEZ,6; "VOTRE CARTE EST : à 
289 PRINT@®C.J+12XP+INTCC2KkJ+33/25-16#<Pag3,CI-JY#P;:IF Pel THEN ZRAP 
219 IF T<=9 THEN PRINT STRS&CT+1); 
220 IF T>9 THEN PRINT MIDS8(B%S,ABS<Z#T-11 3,29; 
239 PRIMTÆ®CJ+S 2#P+1+INTCC2KJ+39/23-21#CP=0),CI-J2KkP:MIDSCES, 245+1,2) 
248 NEXT 1! 
259 IF P=ÿ THEN EXPLODE : END 
264 PRINT@2, 16; "QUELLE COLONNE :";:PING:INPUT N 
278 CLS:FORI=1T09 :PLOTG, I, CHR 192 :PLOT12,1,CHRS#( 18): 
PLOT26, I1,CHR#C 179 :NEXTI 
288 H=H-1 
299 R$="29129":B#&="" 
309 FOR J=9 TO 2 
310 BS=B6+MIDSC AS, 7#VALCMIDSC RS, N+.1, 13341, 72 
328 NEXT J 
330 IF H=@ THEN A9=B4:P=9:G0OTO 149 
349 AB="" 
358 FOR J=Q TO 2 
368 FOR I=1 TO 7 
379 AS=A9+MID8CB8,3#k1-2+.J, 1) 
389 NEXT I 
398 NEXT J 
408 GOTO 148 
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Le jeu de Marienbad 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : logique (2 joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Un jeu rendu très célèbre grâce à un film qui le popularisa, présenté tou- 
tefois ici dans une version plus conforme à ses origines, à savoir le jeu de 
NIM. 

En effet, il est possible, en début de partie, de choisir le nombre d’allu- 
mettes que l’on veut mettre dans chaque tas. 

Chaque joueur joue à son tour, et celui qui retire la dernière allumette a 
perdu. 


LE PROGRAMME : 

La ligne 69 dimensionne une variable A (1) qui contiendra le nombre 
d’allumettes de chaque tas. 

La boucle I (79-199) permet d’entrer ce nombre. 

La boucle I (139-169) imprime les tas. 

La ligne 179 assure l'affichage du joueur. 

La ligne 199, ainsi que la ligne 209, contrôlent si le coup est autorisé. 

La ligne 279 contrôle la fin de la partie. 


POUR JOUER : 

On lance le programme avec RUN, puis on entre le nombre de tas (entre 
1 et 8), suivi de RETURN. 

On entrera ensuite le nombre d’allumettes dans chaque tas (faire à chaque 
entrée N suivi de RETURN). On obtiendra alors l’affichage des différents 
tas, avec le numéro du joueur concerné (1 ou 2), ainsi que le message 
DANS QUEL TAS ; on répond en tapant le numéro du tas dans lequel on 
désire faire un retrait suivi de RETURN. On obtient ensuite la question 
QUANTITE A ENLEVER, et l’on répond en indiquant le nombre d’allu- 
mettes que l’on désire enlever du tas concerné. 

Puis ce sera au tour du deuxième joueur, et l’on jouera alternativement 
jusqu’à ce qu’il n’y ait plus d’allumettes disponibles. 

En fin de partie, on obtiendra l’affichage du numéro du joueur gagnant. 


EXTENSIONS POSSIBLES : 

On peut désigner chaque joueur par son nom, faire un graphisme plus 
élaboré, écrire un programme permettant à l’'ORIC de servir de partenaire, 
etc. 


REM LE JEU DE MARIEHEAC 
CLS:PAPER 4:IHK 6 

INPUT'NOMBRE DE TAS € €=7 3 "3h 

IF M>=8 THEM RUH 
S=9 
DIM ACN) 
FOR I=1 TO N 
PRIHT:PRINT'TAS ";I;:INPUT" —- NOMBRE D'ALLUMETTES :";3ACI 
S=S+A( I) 

MEXT I 

Hal 

CLS:PAPER Z:INK 4 

FOR Iz1 TO H 

PRINTRS#I+2, 4; ACID 
PRINTR2,6;"TAS":PRINTES#I+2,6:1 

NEXT I 

PRINTE2,18:"JOUEUR ";H:PIHG 
PRINT:INPUT"DANS QUEL TAGS :"iT 

IF TN THEH 128 

IF ACT)eQ THEN 124 

PRINT@2, 14; "QUANTITÉ A ENLEVER :";:INPUT 0 
IF D>ACT) OR O=9 THEN 299 

ACTO=ACT 3-0 

S=5-0 

H=H+1 

IF H=3 THEN Hzl 

IF S=9 THEN PRIHT:PRINT'LE JOUEUR ";Hi" 
A GAGNE" : EXPLODE : END 

GOTO 129 


TAS 1 


JOUEUR 1 
DANS QUEL TAS :7 2 
QUANTITÉ À ENLEUER :7 1 
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L’indésirable 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : hasard et réflexion (1 joueur). 
Difficulté du jeu : moyenne. 


LE JEU : 

Vous êtes le propriétaire d’un immeuble de 16 pièces vides, et vous n’ar- 
rivez pas à mettre la main sur votre locataire indésirable. Vous visitez les 
pièces au hasard, mais, si vous visitez la pièce voisine, votre locataire, 
prévenu par le bruit, va déménager. Il peut même se réinstaller dans une 
pièce que vous avez déjà visitée, et marquée comme vide. Il vous faudra 
arriver à le déloger en moins de 9 coups pour gagner. 


LE PROGRAMME : 

Une table B est dimensionnée à 16, en ligne 59, pour recevoir les numéros 
des cases déjà visitées. 

La boucle I (69-199) dessine le terrain de jeu. 

La position initiale du locataire est tirée au hasard en ligne 110. 

Le numéro de la case à visiter est donné en ligne 120. 

Les lignes 130 à 229 contrôlent les diverses réponses possibles. 

La boucle I (179-299) dessine les cases visitées. 

La ligne 239 dessine le locataire, effacé en ligne 260. 

Les lignes 279 et 289 assurent son déplacement. 


POUR JOUER : 

On lance l’exécution par RUN. 

A la question CASE VISITEE, on répond en tapant une lettre, de A à P. 
Si on a trouvé le locataire, celui-ci est affiché, et la partie est terminée ; 
sinon, deux cas peuvent se produire : soit l’on est suffisamment loin, et le 
locataire ne bouge pas, soit l’on est à une case, il apparaît un court instant, 
et il se recache, aléatoirement, dans une case voisine. Les cases déjà visitées 
se colorent en rouge, et Vous ne pouvez pas y revenir. Si, au bout de 
9 coups, vous n’avez pas trouvé, la position du locataire s ‘affiche, et vous 
avez perdu. 


EXTENSIONS POSSIBLES : 

On pourra, bien sûr, Jouer sur plus de 16 cases, utiliser des caractères 
graphiques pour représenter le locataire et le propriétaire, utiliser un al- 
gorithme plus subtil pour le déplacement du locataire, lui interdire éven- 
tuellement de revenir dans des cases déjà visitées, etc. 


246 
218 


229 
239 
248 
258 
268 
274 
284 
299 


REM L’INDESIRABLE 
CLS:PAPER 6:INK 4 
BS=CHRSC 255 2+CHRSC 255 3+CHREC 255 à 
FOR 1=1 TO 16 STEP 4:PLOTI1,1+1,CHRS&C12:PLOT1,1+2,CHRS&C12D:NEXT I 
DIM 16) 
FOR I1=1 TO 16 
PRINTR4+4KC I-1-4KINTÉC I-1 2/4 33, 2+4KINTÉC I-1 23/4); 9 
PRINTRB4+4KC I-1-4KINTÉE I-1 9/4 33, Z+4HKINTCC I-12/43;:B$ 
PRINTRS+4K( I—-1-44KINTÉCE I—1 32/4393, 4444 IMTC(C 1-1 3/43; CHR I+64 3 

NEXT I 

Kæ INTCRNDE 1 2#16+123:S=1 :K=g 

PRINTR2,29; "CASE VISITEE :";:INPUT C#:CmASCC CR )-64 

IF B(C)ai THEN PRINT @2,22;"DEJA VISITEE":ZAP:ZAP:2AP:GOTO 129 
ro sg en PRINT@2,22, "VOUS L'’AVEZ EU EN ":8;" COUPS":PING'Kæ1: 
IF X-5=C0ORX-4=CORX-3eCORX-1=CORX+1RCORX+3=CORK+42CORX+S=CTHEN 239 
PRINT@2,22;"IL N’EST PAS LA":PING:HAIT 159 

S=5+1:BCCom1l:FOR Ii TO 16 

IF B(I1)=9 THEN 298 

PLOT3+4%C I-1-4KINTCÉ 1-1 9/43, 24+4#KINTCC 1-1 3/43, CHRSC D 2+BB+CHRS 1 à 


MEXT I 

IF S=9 THEN PRINT®2,22; "VOUS AVEZ PERDU.C'ETAIT ";:CHRS&C64+x) Ka: 
GOTO 238 

PRINT@2,22;" ":GOTO 124 


PRINT@S+4# 6 H-1-A4XINTÉC 4-1 9/4 32, L+4kINTÉ 41 34 3; 2" 
SHOOT :WAIT 239: SHOOT 

IF K=1 THEN EXPLODE:HAIT 299 :END 
PRINTES+44KCH-1-4HINTE EC 41 3/4 33, L+d#INTCE 4-1 37455" 
ZæINTÉRND(12#19+19-5S:IF ABSCZ)=2 THEN 279 

Kaen+Z:IF X216 OR X<1 THEN X=x-2Z:GOTO 279 

GOTO 179 


CASE MISIIEE :° 
IL H'EST PAS Lé 
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Compose 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : composition musicale. 
Difficulté du jeu : aucune, a priori. 


LE JEU : 

Il s’agit, en fait, d’un programme capable de composer, de façon très 
élémentaire, de la musique, et ceci d’une façon complètement aléatoire. 
L'ordinateur va, dans un premier temps, dessiner une portée, puis il af- 
fiche une succession de notes (allant du DO grave au SI aigu) et donne 
leur nom. Une nouvelle série de notes sera ensuite affichée, et ainsi de 
suite. 


LE PROGRAMME : 

La boucle I (59-79) dessine la portée. La variable N$, en ligne 89, contient 
les noms des notes. 

La deuxième boucle I (99-179) permet de faire le choix d’une note de 
façon aléatoire, à la ligne 199 ; son nom est calculé en ligne 119 et la note 
est dessinée par la ligne 129. 

La ligne 189 permet de recommencer en tapant @ et RETURN. 


POUR JOUER : 

Lancer l’exécution du programme en tapant RUN. 

La portée sera alors rapidement affichée, puis les notes sont représentées, 
avec leur nom affiché en bas de l’écran. 

Une pression sur les touches 9 et RETURN provoquera l’affichage d’une 
nouvelle série de notes, et une pression sur les touches CTRL et C provoque 
la fin de la partie. 


EXTENSIONS POSSIBLES : 

On pourra affiner les règles de composition, afficher davantage de notes, 
introduire des dièses et des bémols, améliorer le graphisme, faire jouer la 
mélodie affichée. 
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DRE ERNEST EURE ET 


na) 


3 
Î 
1 
1 
Î 
1 
1 
Î 
Î 
1 
Il 


iù à 
x 
x 


b 


14 FEM COMPOSE 
A CLS: Re "LIT AASAEASAGAT 17164886 454341" 


FAFER 

IHE 4 

FOR Is TO S 
FLOTEA.CHHEXT, CHRGC IF 
HEAT TI 


A HS="ET LA SOLFA MI RE DO " 


FÜR Is1 TO 13 

és IHTE RNDE 1 EL +1 

CiB=MT CIE M, CEE GARE Ge nt, 

FRTHTIRSET-1, 4-1 5 0 US PRTMTESKT-1 85 OI PRIHTUS#T-1, 441: "0" 
PÉTHTIESXET- 1,16: 0% 

MUSIC 1,3-cHésr 1, WALOMIDSC RS, 241, 211, 4 

PLAY. EH, 4,2 1164 
MAIT 154: PLATE. 4.4, 

HEAT I 

PRIHTRZ, 21: "TAPER 4 — RETURN — POUR CONTINUER"; :IMEUT P$ 
SAT 26 












MI SÛLRE O0 SI LA SI LA LA LA Fà SI Où 


TAPER @ - RETUFH - POUR CONTIHUERT 
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Jour de la semaine 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : utilitaire. 

Difficulté du jeu : facile. 


LE JEU : 

Le programme vous permet de retrouver, sans aucun calcul, le jour de la 
semaine correspondant à une date donnée. 

La date sera entrée sous forme de trois nombres, par exemple 11, 3, 1956 
pour le 11 mars 1956, et le résultat sera affiché en clair. 


LE PROGRAMME : 

Les lignes 19 à 70 contrôlent les entrées. La ligne 40 s’ occupe de la fin de 
partie. La ligne 99 permet une correction pour les dates antérieures à 1582 
(mise en service du calendrier actuel). 

Les lignes 199 à 119 permettront l’affichage en clair du mois dans la 
réponse (sur 4 lettres). 


* La formule utilisée apparaît aux lignes 139 et 149. 


Les lignes 159 et 160 permettront l'affichage en clair du jour dans la 
réponse. Les lignes 179 à 199 impriment les résultats. 


POUR JOUER : 

Lancer le programme par RUN, puis entrer le j jour suivi de RETURN, le 
mois (entre 1 et 12) suivi de RETURN, et l’année (sous la forme 1845, 
par exemple) suivie de RETURN. 

Le résultat est très rapidement affiché. 

On tape 9 et RETURN et le programme revient sur la question JOUR. 
Pour continuer, il suffit de retaper un jour, un mois, une année. 

Pour terminer, il faut répondre Ÿ à la question JOUR. 


EXTENSIONS POSSIBLES : 

On pourra entrer les mois en clair et faire afficher le nom du jour en entier. 
On peut envisager de faire afficher les dates et fêtes particulières (Noël, 
Pâques, les Rameaux, Pentecôte). 

On peut écrire un programme qui afficherait les jours fériés pour une 
année donnée, etc. 


REM JOUR DE LA SEMAINE 
CLS :PAPER 7:INK 9 
PRINT: INPUT"JOUR...,.,,,,.:"3.1 


IF .J=9 THEN END 

PRINT: INPUT"MOIS....,,,...:":M 
PRINT: INPUT'"ANNEE,....,,,:":f 
B=f 

S=INT(A/196 3-INT< A/499 ) 


IF A(=21582 THEN S=2 

MSa" JANVFEVRMARSAVRIMAT JUINJUILAOUTSEPTOCTONOYEDECE" 
M$&=MIDSCMS, 44M-3, 4 ) 

IF M3 THEN MeM+12:AzA-1 

SaI-L+INTE 13%#6 M41 3/5 + INT S#A/4 5-5 

SeS-7XINT(S/7 

.J$= "DT MANCHELUNDI MARDI MERCREDI JEUDI VEHDREDISAMECI " 
JS=MID8 JS, 8#5+1,8) 

PLOTB, 15,CHR&C 173: PLOT 1,15,CHR&C Gi 

PRINT@Z,153"LE ";J;" ";:CHRGC27 3; "L'i MG: CHRSCZ7 "Hi Bi" ETAIT LH "à 
PRINT CHR$C 27 3: "";.J$: EXPLODE 

PRINT:PRINT:INPUT'POUR CONTINUER , TAPER @ - RETURH -":5R$ 
RUH 


MOIS... : 7 6 
ANNEE ........ .7 


LE 11 JUIH 1984 ETAIT UH LUHDI 


POUR CONTINUER , TAPER A - RETURN -7 
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Le jeu de la vie 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu solitaire (2 versions). 
Difficulté du jeu : facile. 


LE JEU : 

La version présentée ici respecte les règles posées à l’origine par le mathé- 
maticien J.H. CONWAY. 

Une certaine population est définie au début du jeu soit par l’'ORIC-AT- 
MOS (version automatique) soit par vous-même (version manuelle). Cette 
population va évoluer sous vos yeux, en respectant certaines règles, très 
élémentaires de naissance, de vie et de mort. L'évolution se poursuivra 
jusqu’à ce que l’on décide d’arrêter le programme. 


LE PROGRAMME : 

Deux tables (B et C) sont utilisées en ligne 50, pour enregistrer l’état de la 
population. Les boucles F (239-300) et G (249-290) sont utilisées en 
début de jeu pour définir la population initiale (lignes 250 et 260). Le 
calcul de la nouvelle population est ensuite réalisé à l’aide d’une quadruple 
boucle : 89-210, 90-209, 119-169, 120-150. La ligne 139 réalise la ges- 
tion du nouvel état suivant les règles. 

L'affichage de ce nouvel état est obtenu en réutilisant la double boucle 
d'affichage F (230-300) et G (249-299). 


La ligne 310 permet de recommencer. 


POUR JOUER : 

Dans la version automatique, il suffit de lancer le programme par RUN et 
de regarder. Pour arrêter, il faudra taper CTRL et C. Dans la version 
manuelle, la configuration de départ sera entrée, après le lancement du 
programme par RUN, en tapant Ÿ si l’on ne veut rien mettre sur la ligne 
et la colonne indiquée, et 1 si l’on désire y mettre une cellule. Puis l’évo- 
lution se déroulera ensuite de façon automatique. 


EXTENSIONS POSSIBLES : 

Il sera facile d’augmenter les dimensions des tables B et C, en redéfinissant 
la variable A. On pourra aussi introduire la couleur, améliorer la précision 
du dessin en remplaçant les PRINT par un affichage haute résolution. 


144 
154 
164 
174 
184 
199 
24n 
219 
224 
234 
4 
256 
264 
274 
289 
294 


REM LE JEU DE LA VIE AUTOMATIQUE à 
CLS:PAPER 7:IHK G:PRINT CHRSC 17 
INPUT'DIMENSION :":8 

CLS:PAPER 3:INK 1 

DIM EA:Aï:DIM CCA.A 

1=8 

GOTO 224 

FOR F=1 TO À 

FOR G=1 TO À 


Se 

FOR Is-1 TO 1 

FOR J=-1 TO 1 

IF F+Js4 OR G+I=<4 OR F+efA+1 OF G+l=fA+1 THEH 154 
SeS+EBCF +. G+T 5 

MEXT I 

MEXT I 


Sag#S-ECF. Go 

CéF.Gozf 

IF S5=5 AND Sée7 THEN CF, Gel 
HEXT G 

MEXT F 

CLS 

FOR Fzi TO A 

FOR Gi TO A 

IF I<:4 THEN 274 

IF RHDC15<9.5 THEH CCF. Gixl 

IF CéFiGiel THEN PRINTRE#EG, ZE à "4" 
BF Grace Fi Gi 

MEXT G 


344 HEST F 





# 
# 
# 
*# 
ok 
# 
_ 
 # 
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REM LE JEU CE LA VIE € MANUEL à 
CLS: PAPER F:IHÉ G:PRIHT CHARGE 17 2 
INPUT'OIMENSION :"3A 
CLS: PAPER 3:IHK 1 
DIM BCA:A3:DIM CA. Hi 
1=4 
GOT 224 
FOR F=1 TO A 
FOR G=1 TO À 
5=f4 
FOR I=-1 TO 1 
FOR Je-1 TO 1 
IF F+Js@ OF G+ls@ OR F4JefA+1 OR G+I=4+1 THEN 154 
SeS+BC F4 G+T 
MEXT .] 
MEXT I 
SeskS-BCF, Gi 
CCF,G3=g 
IF Ses AND Séer THEH CF, Get 
MEXT G 
MEXT F 


4 CLS 


FOR Fsi TO À 
FOR G=1 TO À 
IF I<:9 THEH 284 


4 PRINTRS, 243 "LIGNE "Fi" COLONHE "iGi" — TAPER 1 OÙ G" 


PRINTO2,21:: INPUT CéF,Gi 

IF CCF,Giei THEN PRINTREXG, ZXF à 4" 
BCP. GozCCF, 62 

NEXT G 


A HEXT F 
A FING:GOTO 84 


X + + 


# 


# X 
* 


LIGNE 19 ;COLONME Z - TAPER 1 OÙ @ 





Niveau 3 


Nom du programme 


Un dé 
Plus grand, plus petit 


Ordre 


Le pendu 
Belote 


Un taquin de calcul 
Pendu inversé 


Nicomaque 
Course de chevaux 


A travers 
Mastermind 


Idem 

Horloge 

Reines sur l’échiquier 
Répétitions 

Mots 


Permutations 
Bridge 

Hanoi 
Losanges 


Mathieu 


Le loup et les agneaux 


Thèmes et particularités 


Tirage d’un dé, avec graphisme 
Un jeu de déduction intéressant, pour un 
joueur. 


Un peu d’astuce pour remettre en ordre, le 
plus vite possible. 


Un jeu de lettres très classique (2 joueurs). 


Pour simuler une donne, avec un jeu de 
32 cartes. 


Un bon entraînement (2 joueurs). 


Cette fois, c’est l'ordinateur qui essaie de 
deviner le mot. 


Pour se perfectionner en calcul mental 
(1 ou plusieurs joueurs). 


Assez visuel : un jeu de hasard, pour plu- 
sieurs Joueurs. 


Un jeu de stratégie pour 2 joueurs. 


Avec des chiffres, mais très classique. Un 
seul joueur. 


Un jeu de calcul mental, avec plusieurs ni- 
veaux, pour plusieurs joueurs. 


Ne jetez pas votre vieille télévision : trans- 
formez-la en horloge. 


Un vieux problème, pour vous aider à ré- 
fléchir. 
Retrouver une séquence de chiffres de plus 


en plus longue. 


Une idée très simple, mais ce n’est pas si 
facile de trouver ! 


Un jeu de réflexion, pas toujours évident. 
Mettez au point vos propres problèmes de 
bridge. 

Un conseil : commencez petit ! ! ! 

Pour vous aider à vous endormir.… 


Vous ne savez pas dessiner ? Laissez faire 
votre ordinateur. 


Un jeu de réflexion pour 2 joueurs. 
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Manipulation 
des affichages 
grand format 
Mode haute résolution 


TRAITEMENT DES CHAINES DE CARACTERES : MID$. LEFT. 
RIGHTS 


Nous avons eu l’occasion de rencontrer. dès le niveau IL. la fonction essen- 
telle utilisée en Basic pour manipuler les chaînes : il s’agit de MIDS (A$. 
L. J) qui permet d'extraire. dans la chaîne A$. une sous-chaîne de longueur 
J. commençant au lème caractère. 

Ainsi si. 

A$ = “MONSIEUR” 

On aura : 

MIDÉ (A$. 2,3) = “ONS” 

Pour faciliter les manipulations. il est possible d'utiliser les deux fonctions 


LEFT et RIGHT$. 

LEFT (A$, I) permet d'extraire les I premiers caractères à partir de 
la gauche du mot Af. 

Ainsi, LEFTS (A$, 2) = “MO”, avec l'exemple précédent (on pourrait 
d’ailleurs utiliser MID$ (A$, 1, 2) pour obtenir le même résultat. 
RIGHTS (A$, J) permet d'extraire les J derniers caractères (on part de la 
droite du mot A$). 

Ainsi RIGHTS (A$, 3) = “EUR”, toujours avec le même exemple. 

Il est plus difficile de se passer de la fonction RIGHTS, mais il serait 
possible de faire MIDÉ (A$, LEN (A$) - 3,3) pour obtenir le même résul- 
tat. 

Le Basic de 'ORIC-ATMOS ne permet pas le remplacement direct d’une 
sous-chaîne par une affectation du type MID$ (-.-) = “ ”. Il sera néces- 
saire, pour remplacer la Ième lettre de la chaîne A$, d'écrire : 


A$ = LEFTS (A$, L. 1) + “nouvelle lettre” + RIGHTS (A$, LEN (AS) - 
D. 


Des formules analogues pourront être utilisées pour remplacer dans A$ 
une sous-chaîne par une autre, pas nécessairement de même longueur, ce 
qui permet une grande souplesse. 


AFFICHAGE GRAND FORMAT 





Le Basie de F'ORIC-ATMOS dispose de l'intéressante possibilité de réaliser 
des affichages double hauteur. ce qui permettra d'améliorer très facile- 
ment l'aspect graphique de certains jeux. 

[suffit pour cela d'afficher le caractère concerné. précédé d'un caractère 
CHRS$ (10) sur deux lignes consécutives. avec néanmoins des règles un 
peu contraignantes sur la parité de la ligne inférieure. On pourra d° ailleurs 
utiliser cette possibilité avec les caractères graphiques définis par Futili- 
sateur. 


LE MODE HAUTE RESOLUTION 





Sur l'ORIC. le mode haute résolution est accessible par l'instruction HIRES 
(on reviendra au mode normal en tapant TEXT). 


On dispose alors de la possibilité d'allumer ou d'éteindre 200 X 240 points. 
avec l'instruction CURSET, en tenant compte du repérage suivant : 
92( 
0 239 
0 x 


CURSET X, Y 


199 Y 


Un troisième paramètre détermine l'appartenance (fond. ou écriture) du 
point concerné. 


L'affichage d’un texte dans l'écran haute résolution se fait à l’aide de 
l'instruction CHAR (qui travaille caractère par caractère). 
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Un dé 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : tirage d'un dé (avec graphisme). 
Difficulté du jeu : aucune. 


LE JEU : 

Le programme propose simplement le lancer d'un dé aléatoire. et sa re- 
présentation graphique en grand format. 

Il pourra facilement être utilisé en sous- programme. dans tout tvpe de jeu 
faisant appel au lancer d’un ou de plusieurs dés. 


LE PROGRAMME : 

La ligne 50 utilise le générateur aléatoire de l'ORIC-ATMOS pour tirer un 
nombre de 1 à 6. 

La boucle J (70-100) dessine les bords du dé, et les lignes 60 et 110 
dessinent le haut et le bas. 

Les lignes 120 à 170 sont utilisées pour le dessin des points. 

Les lignes 180 et 190 permettront le cas échéant de refaire un tirage. 


POUR JOUER : 
Lancer le programme par RUN. 
On entre un entier pour initialiser le générateur. et un dé s'affiche, en 


couleurs. et en grand format. 


A la question : AU TRE TIRAGE (O/N) on répond O, suivi de RETURN, 


pour relancer le dé. 


EXTENSIONS POSSIBLES : 
On pourra introduire une petite musique agrémentant chaque lancer, faire 
défiler les points comme si le dé roulait sur une table, etc. 


19 REM UN DE 

28 CLS 

34 PAPER 5 

4A IHK 4 

54 A=INTCRMDS 1 3#6+1 

64 PRINTE9,5;CHR$C 27 3;"R";" it PRINT CHRS$C 27 5; "0" 
FA FOR .J=A TO 19 

84 FRINTR9,6+J;CHR$&C 27 ip" Mi: PRINTCHRSC 27 3; "LU" 

99 PRIHTR22,6+.J;CHR#C273;"R";" li: PRINTCHRSC 27 3; "LU" 

194 HEAT .] 

119 PRINTR9,17:CHR&C2735"R';" Mi: PRINT CHRS$C ZT 3; "UN 
129 IF A<>1 THEN PRINTB13,8:CHR&C 255 1 

138 IF A>=4 THEH PRINTR19,8; CHR$C 255) 

144 IF A=6 THEM PRINT®@13, 11; CHRS$C2ZSS 2: PRINTR19, 11: CHARS 255 2 
154 IF H/2CHINTCA/2) THEN PRINTR16, 11; CHR$C 255 ) 

168 IF A>=4 THEN PRINTB13, 14: CHRS# 255) 

179 IF A<D>1 THEN PRINTR19, 14: CHR$ 255 à 

184 PRINT@2,29; "AUTRE TIRAGE CO/Ni"3:PING: INPUT R$ 

199 IF LEFTS&CRS, 15:="0" THEN RUN 


HHHHHHHHHHRHAR 
## 


## 
## 


# 
# 


# 
## 
## 
## 
## 
## 
## 
## 
#4 
## 
## 
## 
## 


# 
# 
## 
## 
## 
## 
## 
## 
HHHHHHHHHHHHR 


AUTRE TIFAGE SUSHE OH 
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Plus grand, plus petit 


REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : jeu de déduction (un seul joueur). 


Difficulté du jeu : difficile. 
LE JEU : 


Il s'inspire d’un principe légèrement différent de celui du Mastermind ; il 
s’agit également de deviner un nombre (de 1 à 7 chiffres), mais les indi- 
cations dont on dispose sont cette fois d’une part le nombre de chiffres 
qui, dans le nombre essayé, sont supérieurs à ceux du nombre à deviner, 
et, d’autre part, le nombre de chiffres qui sont inférieurs. Si, par exemple, 
le nombre à deviner est 3054, et que l’on essaie 4251, la machine répondra 
2 plus grands (ce sont le 4 et le 2), et 1 plus petit (c’est le 1). 


LE PROGRAMME : 

La ligne 69 interdit de demander des nombres de plus de 8 chiffres. 

Le nombre à deviner est placé en ligne 89, dans une variable alphanu- 
mérique X$. 

Les comparaisons avec le nombre essayé sont faites à la ligne 130 (qui 
teste si l’on a trouvé juste), et dans la boucle I (159-180) où l’on fait la 
comparaison “lettre à lettre”. 

L'affichage du résultat est réalisé grâce à la ligne 190. 

Le compteur du nombre d’essais est en ligne 200. 


POUR JOUER : 

Le lancement du programme par RUN provoque l'affichage NOMBRE DE 
CHIFFRES. 

On entre un nombre inférieur à 8 et on appuie sur la touche RETURN. 
Le numéro de l'essai s’affiche, ainsi que la question NOMBRE ESSAYE ; 
on répond en entrant un nombre, suivi de RETURN. 

Le résultat est alors affiché sous la forme > et <. 

S'il n’est pas exact, on recommence (attention à entrer uniquement des 
nombres ayant autant de chiffres que le nombre à deviner). 

Si l’on a trouvé l’ORIC-ATMOS affichera VOUS AVEZ TROUVE... EN... 
ESSAIS. Puis AUTRE PARTIE (O/N) : on fera O suivi de RETURN pour 


commencer une nouvelle partie. 


EXTENSIONS POSSIBLES : 

On pourra, comme pour le Mastermind, imaginer un jeu analogue avec 
des lettres, des couleurs, ou même en utilisant d’autres symbolismes. 

On peut aussi prévoir de laisser jouer l'ORIC-ATMOS qui tiendra alors le 
rôle de décodeur. 


14 REM PLUS GRAND, PLUS FETIT 

SA PAPER 6 

34 [ME 4 

4 CLS 

24 IHPUT'HOMBRE CE CHIFFRES MT 

SA IF CSS THEH di 

FH Esl:F=]l 

AN EBeSTRGEL TMTE END 1 EACH LATE CE 1 

36 GS RTCHTÉC ER, LEME ES el 

144 PRINTEE, SG; CESSAT HO,  HOMBRE ESSATE 

114 PLOT 6,4, CHARGE 1 

124 PRIHTIME, EtdiE: PRIMT BTE, Ed ic: THBIIT ES 
136 IF Féexg THEN 256 

14 As: EB= 4 

154 FÜR Teil TU C 

LE OTF MID Pé, T1 MT DMGe ET, 11 THEM Az 
16 IF MIDSEP,T, 1 EMIDRE HS, IT, 11 THEH BxE+l 
154 HET T 

194 PRIHTRES, Ed: 4: PRTHTEGE, Et: E: PTHG 

SA EsE+l:FeF4i ile Fais THEH Ft 
#14 GOT 1264 

224 PRIHT:PRINHTUYOUS AVEZ TROUVE "ismin EH ME; 
M ESSAIS": EXPLODE 

234 PRIHT:IHPUT'AUTRE PARTIE SOHAU ES 

244 IF LEFTHORS, 12e" THEH EUH 





HOMBRE DE CHIFFRES :T 4 


ESSAI HO. HOMBRE ESSAYE 





4 
505 
4 
4 


; 29 
% 992 
ÉTZ 


F7 6 


UQUS AUEZ TROUUE 6734 EN ©  ESSHIS 
AUTRE PARTIE CO/H37 H 
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Ordre 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de réflexion. 
Difficulté du jeu : moyenne. 





LE JEU : 

Les 19 premières lettres de l’alphabet sont affichées dans le désordre ; il 
faut réussir à les remettre dans l’ordre, avec le moins de coups possible, 
par des permutations successives de deux des lettres ; mais ceci a aussi 
pour inconvénient de faire permuter autour d’elles les deux lettres qui 
entourent celles-ci, suivant le mécanisme expliqué ci-dessous : 


BADGHIJCFE 
9123456789 :permutation 83 
es À | 
BADFHIJIEGC 
9123456789 : résultat 
LE PROGRAMME : 


Les boucles emboîtées I (69-129) et J (89-199) définissent une variable 
alphanumérique A$, contenant les 19 premières lettres de l’alphabet dans 
le désordre. 

La ligne 149 affiche A$, et la ligne 159 affiche les numéros de lettres à 
utiliser pour la permutation. 

On entre la permutation en ligne 190. 

Les lignes 200 et 219 transforment la variable alphanumérique entrée en 
une variable numérique. 

La ligne 229 appelle une première fois le sous-programme d’inversion. 
La ligne 259 appelle une deuxième fois le sous-programme d’inversion. 
La ligne 269 comptabilise les essais. 

La ligne 189 contrôle les résultats. 


EXTENSIONS POSSIBLES : 

Lancer le programme par RUN. 

Le mot initial est affiché, chaque lettre étant repérée par un numéro de 1 
à 9. 

À la question INVERSION (1[/J), on répond en entrant un nombre de deux 
chiffres xy ; x est le numéro de la première lettre, et y le numéro de la 
seconde. Les deux inversions sont alors successivement effectuées, et l’on 
recommence. 

Le nombre de coups sera affiché en fin de partie. 


EXTENSIONS POSSIBLES : 

On peut imaginer un jeu contre l’ordinateur, qui évaluerait le score du 
joueur en fonction de ses propres performances ; on peut aussi modifier 
les règles qui régissent les permutations. 


19 REM ORDRE 

28 CLS 

30 PAPER 3 

48 INK 4 

sg A8= URL 

68 FOR I=i TO 19 

76 RS=CHRSC INTC RNDC 1 24 10+653 3) 

80 FOR Jei TO I-1 

90 1F RS#MIDSC A8, J,13 THEN 79 

108 NEXT J 

110 AS=AB+RS 

128 NEXT I 

138 Sul 

140 PRINT@EZ, 4, "RESULTAT :", AS:PING 
130 PRINTE12,5, "0123456799" 

168 PRINTR2,9; "ESSAI NUMERD "38 

178 PRINTE35, 12," : 

180 IF AS="ABCDEFGHIJ" THEN PRINT "TROUVE EN ":S;" COUPS" :EXPLODE 
198 PRINT®2,12,"INVERSION (I ET J SOUS FORME 1J )";:INPUT RG 
208 I=ASC(LEFTSCRS, 12-47 

218 JaASCCRIGHTSCRS, 12-47 

2208 GOSUB 508 

239 IF LEFTSCRS, 1)="0" OR LEFTSCRS, 13="9" THEN 259 
248 IzI-1:.J#1+2 

250 GOSUB 5008 

260 325+1 

273 GOTO 14@ 

509 ES="" 

516 FOR T=1 TO LENCAS) 

529 IF T=] THEN NS=MIDSCAS,T, 12 

530 IF TæJ THEN MBsMIDSCAG,T, 1) 

549 NEXT T 

559 FOR Tz=1 TO LENCA#) 

569 IF Tzl THEN B8=B8+M8:GÛTO 598 
379 IF TaJ THEN BS2B8+N8:CGOTO 538 
584 B$=2B8+MIDSCAS,T, 12 

398 NEXT T 

600 AS=B& 

618 RETURN 


RESULTAT :k 


ESSAI HUMERO © 


INVERSION CI ET J SOUS FORME IJ 27 
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Le pendu 


REFERENCES : 

Difficulté de programmation : moyenne. 

Catégorie de Jeu : jeu de lettres (version deux joueurs). 
Difficulté du jeu : moyenne. 





LE JEU : 

Il serait sans doute assez difficile de retrouver le nom de l'inventeur de ce 
jeu très à la mode, mais il est certain qu'il existe depuis des temps immé- 
moriaux, quelquefois pratiqué sous des formes assez différentes (par 
exemple, reconstituer un petit cochonnet en lançant des dés). 
L'apparition des jeux sur micro-ordinateur et la magie des écrans de télé- 
vision Jui ont fait connaître un renouveau certain : dans la version retenue, 
l’un des joueurs doit entrer un mot de longueur quelconque. L'ordinateur 
affichera alors des tirets à l’emplacement des lettres de ce mot et demande 
au deuxième joueur de proposer une lettre. Chaque réponse correcte fait 
apparaître la lettre à son emplacement exact dans le mot, et chaque ré- 
ponse fausse fait progresser le dessin de la potence. 

Pour gagner, il suffit de réussir à trouver le mot inconnu avant d’être 
pendu. 


LE PROGRAMME : 

Le mot à deviner est introduit en début de programme (ligne 39) ; une 
variable B$, en ligne 49, contient tous les éléments du dessin. 

La boucle I (69-84) fabrique un mot P$ qui contient des tirets à l’empla- 
cement de chacune des lettres du mot initial. 

La boucle I (129-149) s'occupe du dessin (plus ou moins complet, selon 
la valeur de P). 

Les lignes 130-169 affichent le résultat et arrêtent le jeu. 

La lettre essayée est entrée en ligne 179 et testée dans une boucle I (190- 
210) ; le sous-programme 390-329 remplace chaque tiret par la lettre 
correspondante. 


POUR JOUER : 

Après le lancement du programme par RUN, l’un des joueurs doit entrer 
son mot et taper RETURN. Des tirets sont affichés à l'emplacement de 
chacune des lettres du mot ; et la question VOTRE LETTRE apparaît sur 
l'écran ; l’autre joueur répond alors en proposant une lettre suivie de RE- 
TURN. 

Si la lettre est bonne, elle viendra remplacer un ou plusieurs tirets ; sinon, 
la potence va commencer à se dessiner. 

Le mot exact sera affiché dans le cas où l’on aurait perdu. 


EXTENSIONS POSSIBLES : 

Il sera intéressant de constituer une liste de mots dans lesquels l’ORIC- 
ATMOS pourra piocher au hasard ; on pourra aussi améliorer le dessin 
(avec les caractères graphiques, par ‘exemple) et modifier le nombre d’es- 
sais permis selon la difficulté du mot. 


REM LE PENDU 
CLS 
INPUT'VYOTRE MOT :";R& 


Bae"> CI OLMMMMAHHHUE | 1 D 7 sus" 
PS un 
FOR Ix1 TO LENCRS) 
PS=p#+"" 
NEXT I 
Pai1 
CLS 
PRINTE2, 3:P# 
FOR 1=11 TO P STEP -1 
PRINT24, 12-P:CHROC27 33 "A MIDI ER, 143XC 1-1 2,39: ZNP 
N 


IF P#eR$ THEN PRINT"'BRAVO" : EXPLOLE : END 


164 IF Pi THEN PRINT'PERDU ; LE MOT ETAIT :";3R@&:PING:PIMG:END 


PRINT@2, 29; "VOTRE LETTRE :";:INPUT S8 
T=9 
FOR I=1 TO LENCR#) 
IF MIDSCRS,1,13258 THEN GOSUB 290 
NEXT I 
IF T<>8 THEN 110 
Pæp-1 
GOTO 118 
= 


T 
319 PSsLEFTSCP#, 1-19 + S$ + RIGHTSCPS, LENC PS 3-T 


RETURN 


INFORMA-IG-E 


PEROU ; 


LIOTRE LETTRE :7 & 
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Belote 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de cartes. 
Difficulté du jeu : facile. 


LE JEU : 

Le jeu proposé est plutôt une simulation, réalisée sur 32 cartes, de la 
distribution de 4 paquets de 5 cartes. Il pourra être utilisé pour l’étude de 
problèmes faisant intervenir des donnes de 29 cartes sur 32. 


LE PROGRAMME : | 

En ligne 50, on crée un tableau pouvant contenir les 29 cartes. 

La boucle [ (80-140) assure le tirage aléatoire de 29 nombres, pris parmi 
32 ; la boucle J (119-130) vérifie que l’on ne réalise pas deux fois le même 
tirage. 

La AR boucle [ (169-319) assure ensuite l’affichage, les noms des 
cartes étant affichés en clair, et la couleur étant décodée et affichée en 
clair, grâce aux lignes 219 à 280. 


POUR JOUER : 

Il suffit de taper RUN pour obtenir immédiatement l'affichage de 4 pa- 
quets de 5 cartes chacun (une donne). 

Un nouveau RUN permet d’obtenir une nouvelle distribution. 


EXTENSIONS POSSIBLES : 

On pourra facilement mettre au point un affichage plus graphique en 
utilisant les caractères graphiques redéfinissables d'ORIC-ATMOS ; on 
pourra également se servir de ce programme comme d’un noyau pour la 
mise au point de programmes de jeu de cartes sur l’ordinateur (qui pourra, 
si nécessaire, servir de partenaire : voir l’exemple du Poker, dans le même 
ouvrage). 


169 
174 


214 
228 
234 
244 
254 
264 
2rA 
84 
234 
384 
314 


REM BELOTE 
CLS: PRINT CHRSC 172 
PAPER 2 

INK G 
DIM (29) 
K=1 
PRINTR12, 12: CHRSC 27 3; "L':"PATIENTEZ - JE TIRE" 
FOR I=1 TO 29 
A£I3=1 + INTÉRHDG 1 332: 

IF I=1 THEN 149 

FOR Jsi TO 1-1 

IF ACI)=At 5 THEN 3% 

NEXT J 

MEXT I 

CLS 

FOR 1=1 TO 26 

ge n CA LL 

Sa1+AC I D-BHINTC AC I 2/8) 

RH=STREC +64" RER IGHTECRS, LENCRE 3-1 à 
RSeLEFTSCRS, 2 ) 

IF S=5 THEN RS="va" 

IF S=6 THEN R#="DA" 
THEN R$="RO" 
R$=" AS" 
I3<=24 THEN 5$="TR" 

IF ACI3=16 THEN S#="Pl" 

IF ACID=8 THEN 5$="C0" , 
PRINTRLMKINTE € 1-13/5042,2#KiR$i" "cé 


en] 

n 
Din 
D -J 
—— 
E 
mm 
pr 


KekK+1:PING:HAIT 54 
IF K=6 THEH Ki 
MEZAT I 
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Un taquin de calcul 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : difficile. 


LE JEU : 

Il se pratique à deux joueurs, l’un tenant le rôle du codeur, l’autre celui 
du décodeur. 

Le codeur part d’un nombre (proposé par l'ORIC-ATMOS) et doit le 
transformer à l’aide de 5 opérations qu’il choisit lui-même, ainsi d’ailleurs 
que les opérateurs. 

Le résultat qu’il a obtenu et les opérations qu'il a utilisées seront affichés 
sur l'écran : le décodeur devra alors essayer de retrouver le nombre initial 
en effectuant les opérations en sens inverse. 


LE PROGRAMME : 

La ligne 59 permet d'obtenir l’entier de départ compris entre 5 et 20. 
Une boucle 1 (119-200) permet d’entrer successivement les 5 opérations. 
4 sous-programmes sont utilisés pour les calculs (aux lignes 1900 à 4000). 
Après chaque calcul, le résultat est affiché (seul, le codeur devra regarder 
l'écran pendant cette opération) et le résultat définitif restera affiché pour 
le décodeur à la fin des calculs (ligne 190). 

La ligne 219 affiche les 5 opérations utilisées, ainsi que les opérateurs 
correspondants. 


POUR JOUER : 

On frappe RUN pour lancer le programme. 

Le nombre du début est affiché, puis la question ENTREZ 5 OPERA- 
TIONS ; on devra les entrer l’une après l’autre, sous la forme, par exemple : 
+ 4 suivi de RETURN. 

Le résultat sera affiché après chaque opération entrée. A la fin, les opé- 
rations entrées sont toutes affichées sur une même ligne, et le message 
BON COURAGE est envoyé à l'adresse du décodeur (il n’y a pas de contrôle 
au décodage). 


EXTENSIONS POSSIBLES : 

On pourra, bien sûr, songer à améliorer la partie décodage du programme 
en introduisant des contrôles sur le résultat ; on peut aussi envisager de 
laisser 'ORIC-ATMOS participer davantage en lui confiant le rôle du co- 
dage, etc. 


REM UN TAGQUIN DE CALCUL 
PAPER 5 
INK 4 


CLS 

K= INTÉ RNDE 1 2#16+5 à 
PRINT:PRINT"'MOMBRE INITIAL :";%4 
PRINT:PRINT'ENTREZ 5 OPERATIONS" 
PRINT'SOUS LA FORME +5 , /2 , #4 ,,," 
Fax 

DIM R&C5) 

FOR 1z=1 TO 5 


3 PRINT @18,6;" £ 


PRINTR2,6; "VOTRE OPERATION :"3:INPUT R#CI 
A=ASC(LEFTSC RSC I 2, 133-41 

IF A<=Q OR Az3 OR A=5 OR A>6 THEN 129 

IF 423 THEN Ax(A/23+1 

ON À GOSUB 1908,2996, 3298, 4998 
PRINTR16,1@;" 

PRINTR2, 19; "NOMBRE OBTENU :"3F:PING 

NEXT I 

PRINT: PRINT'OPERATIONS :";R&<C 45" ":R&C12;" 
"REC" "RCI" IRBCE. 

PRINT :PRINT:PRINT'BON COURAGE, .,,":EXPLODE 


END 
8 FaF#VALCRIGHTSC REC I à, LENC RSC I 32-133 
A RETURN 


2900 F=F+VALCRIGHTSC RSC I 2, LENC RCI 22-153 


9 RETURN 


3990 F=F-VALCRIGHTSÉ REC TI 3, LENC RSC I 3-1 33 


@ RETURN 
8 F=F/VALCRIGHTSC REC I 2, LENC RCI 23-19) 
3 RETURN 


HOMERE IHITIAL : 16 


2 5 OPERATIONS 
ENTREZ SSRARME 49 2 , #4 


UQTRE OPERATION :7 -58@ 


HOMBRE OBTENU : 19 
OPERATIONS :+28 -4 -S2 /3 *8 


EBOH COURAGE . ... 
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Pendu inversé 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu sur les mots. 
Difficulté du jeu : facile. 


LE JEU : 

Le Pendu est un jeu de lettres très connu, présenté par ailleurs dans ce 
recueil, dans lequel il s’agit de deviner un mot caché par l’ordinateur et 
où chaque lettre non découverte vous rapproche un peu plus de la potence. 
Ici, c’est 'ORIC-ATMOS qui va chercher à deviner votre mot, mais il joue 
quelque peu au hasard et ne possède pas votre intuition ; il faudra donc, 
en règle générale, beaucoup d'essais pour découvrir la solution. Pour aug- 
menter ses chances, on a fait appel à une formule qui lui permet de tirer 
davantage dans les voyelles puis, dans les consonnes courantes, et, enfin, 
dans les consonnes plus rares. 


LE PROGRAMME : 

La ligne 50 permet d’enregistrer, dans une variable alphanumérique D$, 
les lettres de l’alphabet, dans l’ordre : voyelles, consonnes usuelles, autres 
consonnes. Le mot à deviner est introduit en ligne 74 (en fait, il suffirait 
d'introduire sa longueur). 

La boucle I (99-129) imprime des tirets aux emplacements des lettres à 
trouver. 

La temporisation en ligne 149 sert uniquement à simuler le temps de 
recherche d’une lettre. 

La formule, placée en ligne 159, permet de modifier légèrement la pro- 
babilité de tirage, en faveur des voyelles et des consonnes usuelles. 

La ligne 179 provoque un nouveau tirage, et la boucle I (219-249) réim- 
prime les tirets et les lettres trouvées. 

La ligne 259 incrémente le compteur d'essais. 

La ligne 269 affiche le nombre d’essais réalisés, en fin de partie. 


POUR JOUER : 

Lancer le programme par RUN. 

Entrer le mot à découvrir, suivi de RETURN. 

Des tirets sont alors affichés (un par lettre) et l’'ORIC-ATMOS propose 
une première lettre, regarde si elle convient et continue automatiquement, 
jusqu’à ce qu'il ait trouvé. 

On pourra sortir du programme à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

Il sera sans doute intéressant, pour de jeunes enfants, de prévoir une ver- 
sion non automatique où le joueur répondrai OUI ou NON pour chaque 
lettre proposée par l’'ORIC-ATMOS ; on pourra aussi imaginer d’ajouter 
un affichage graphique, par exemple une potence ou une voiture qui avance 
vers un précipice, etc. 


REM PENDU INYERSE 

CLS 

PAPER 6 

INK 4 
D$="YAEIOUBCOFGLMNPRETYWHKJGKZ" 


69 C=1:T#="" 


INPUT'ENTREZ VOTRE MOT :"5r$ 
CLS 


99 FOR I=1 TO LENCR$2 


119 
129 
139 
148 
154 
169 
179 
184 
198 
298 
219 
228 


238 
249 
259 
268 


PRINTRI+2,5:"-" 

TS=TS+ CLS Li 

NEXT I 

PRINT@2,9;"JE CHERCHE.,,..,: ESSAI "ic 

WAIT 544 

K=-6X#(RHDC 1 30,7 2-13#C RNDC 1 2€ 0,5 3-7#€ RHD6 1 5< 09, 45 
Ke INTE 4#RNDC 1 5+1 3 

IF MID$SCDS,%X,129="-" THEH 159 

E$S=MIDS&( DS, #, 152 

DS=LEF TS DS, x 1 24+"-U4RICHTSC DS, 26-% 2 
PRINT:PRINT:PRINT"'JE PRENDS :":ES:PING 

FOR 1=1 TO LENCR#) 

IF E$=MIDSCRS, I, 12 

THEN TÉSSLEFTSCTS. I-1+ES$+RIGHTEC TS, LENCTS$2-I 3: ZAP 
PRINTR24+1,5:MIDS TS, 1,12 

MEXT I 

C=C+1 

IF T$&=R$& THEN PRIMNTR2,18; 

"TROUVE EN "iC-1;i" COUPS" : EXPLODE : END 


278 GOTO 138 





LIAOROUILLEUR 


JE CHERCHE 


JE PRENOS :R 


TROUUE EH Z1  COUFS 


117 


118 


Nicomaque 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de réfléxion (calcul mental). 
Difficulté du jeu : moyenne. 


LE JEU : 

Il utilise une propriété un peu particulière des entiers de 1 à 199 qui 
peuvent être identifiés sans ambiguïté par leurs restes dans les divisions 
par 3,5 et 7. 

Le programme proposé ici, est un programme codeur qui affiche simple- 
ment les restes d’un entier donné N dans les divisions indiquées. 

Le jeu consiste à essayer de découvrir l’entier (mais, dans cette version, 
vous n’avez droit qu’à un seul essai). 


LE PROGRAMME : 

La ligne 59 permet de confectionner l’entier. 

La boucle I (89-139) calcule les trois restes successifs, et la boucle emboî- 
tée J (199-129) permet de les afficher sous une forme assez visuelle, aux 
bons emplacements. 

Les lignes 69 et 79 sont là pour indiquer de quelle division il s’agit. 

Le nombre proposé par le joueur est entré à la ligne 149 ; il est affiché et 
testé aux lignes 159 et 169 (affichage de fin de partie : BRAVO ou PER- 
DU). 

Les lignes 170 et 189 s'occupent de gérer la prochaine partie, selon la 
réponse du joueur. 


POUR JOUER : 

On lance le programme en tapant RUN. 

Les trois restes seront alors affichés sur la même ligne, symbolisés par des 
étoiles (l'absence d'étoiles signifiant : reste Q). 

À la question VOTRE ESSAL, on répondra en donnant un entier compris 
entre Ÿ et 190, suivi de RETURN. 

On obtiendra, en réponse, un affichage PERDU ou BRAVO, puis la ques- 
tion AUTRE PARTIE (O/N). 

Pour faire un nouvel essai, on répondra O, suivi de RETURN. 


EXTENSIONS POSSIBLES : 

On peut envisager de réaliser le programme décodeur (on donne les restes 
et l’'ORIC-ATMOS devra vous donner N) et chercher si la propriété peut 
être étendue (en effectuant davantage de divisions, par exemple). 


ce 
ii 


PS Me D Det jt pt pet pt MY OO ef ET CA a Eu Pi ds 
D y M CA Bite © Ro DS ni 


CRU TER ET EN ELU EL LX) 


REM HICOMAQUE 
LLE 
FAFER 3 

IHK 4 
se LHTE RH 1 16641 à 
FPRIHTURESTE CAMES LA CIYISION FAR" 
PEIHT:PEIHT TABLE 13 MAN TABC 240; "SM TAB ES Ne" 
FÜR I=i TO 3 
As EH TH CETTE SE TET #1 10 

FÜR sl TO À 

IF A£A THEH PRINTIEHEXET 4,5: UK ZAP 

HEXT .] 

MEAT TI 

PEINTRES, 14: "VOTRE ESSAI :"3;: INPUT H 

IF He“ THEM PRIHT :PRIHT"ERAYO" : EXPLODE 
IF HE THEH PRINT :PRIHT"PERCU" :FTHG 
PRIHT:IHPUT"AUTRE PARTIE OH "RS 
IF LEFT#CRS, Lie "0" THEM ELIH 











RESTE DAWS LA DIUISIOH F&r 


— 1 
3 5 F 


# 


LOTRE 
BRALD 
AUTRE PARTIE ÉO/Hi :% MH 
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Course de chevaux 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : hasard (plusieurs joueurs). 
Difficulté du jeu : aucune. 


LE JEU : 

On entrera un nombre de chevaux compris entre 1 et 19, et la course 
débutera immédiatement. 

Il pourra y avoir des ex-aequo, car l’on tiendra compte du fait que l’ORIC- 
ATMOS s'occupe de faire avancer les chevaux les uns après les autres, en 
commençant par le numéro 1 ; le classement sera affiché au fur et à mesure 
des arrivées (et en tenant compte des ex-aequo). 


LE PROGRAMME : 

Une première boucle non formelle (89-179) affiche les chevaux dans leur 
position de départ. 

Une deuxième boucle I (199-180) les fera avancer ; la position de chaque 
cheval sera repérée par un chiffre ou une lettre dans une variable alpha- 
numérique A$. 

La ligne 129 fera avancer les chevaux. 

La ligne 149 gère les arrivées. 

La ligne 154 réalisera les impressions. 

Le sous-programme 240-280 fait avancer le compteur des arrivées, et 
imprime les résultats. 


POUR JOUER : 

On lance le programme par RUN. 

À la question NOMBRE DE CHEVAUX : on répond par un entier de 1 à 
7, suivi de RETURN. 


La course se déroulera ensuite automatiquement. 


EXTENSIONS POSSIBLES : 

On pourra dessiner les chevaux avec un graphisme plus soigné, et les 
différencier par leur couleur. 

On pourra aussi imaginer tout un système de paris, qui interviendra avant 
le départ de chaque course. 


234 
24% 
234 
266 


274 
284 


REM COURSE DE CHEVAUX 
CLS :PRINT CHRSC 17) 
PAPER 7 
INK 
IHPUT'NOMERE DE CHEVAUX :":H:IF H>7 THEN 24 
Ag="" : Pag: sg: T=1 :K=@:IeT 
FOR I=1 TO H:PLOTI,2#1+3,CHRSC I-10:NEXT I 
AS=A$+"Q": Ie] 
GOTO 159 
FOR I=1 TO 
IF MIDSCAS,1,12="K" THEN 129 
BS=CHPSC ASC MIDSC AS, I, 1 32+INTC RNDC 1 2#4+1 12 
AS=LEFTSC AS, 1 +E8+RIGHTSC AS, LENC AS )-I 2 
IF E$>="K" THEH GOSUE 24% 
PRINTOASCCMIDEC AS, 1,190-d6,2#1435" il 
ZAP:MAIT 15% 
IF K=ÿ THEM JeJ+i:IF IN THEN 8% ELSE K=1: 
GOTO 146 
NEXT I 
P=P4T 
T=@ 
PING 
IF A€N_ THEN 199 
EXPLODE : END 
AS=LEFTSC AS, 1 2+"K"+RIGHTSC AS, LEMC AS 3-1 à 
PRINTR2, 24143; CHRSC 27 33 "Là : 
PRINT CHRS(272;"@";P;: PRINT CHRS&C27 3; "H"; 
PRINT CHRSC 27 3; CHR 624] 3: Tai 
A=A+T:PING:MAIT 36: PING:UAIT 34: PING:HAIT 34 
RETURN 


HOMERE DE CHEUAUX :7 € 
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A travers 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Sur l’écran apparaît un carré de 9 cases, avec sur le bord vertical des lettres 
et sur le bord horizontal des chiffres. 

L'un des joueurs manipule les chiffres, l’autre les lettres. 3 déplacements 
sont possibles pour les chiffres, et 3 autres pour les lettres. Les lettres 
peuvent se déplacer vers le haut, à droite et à gauche et les chiffres vers la 
droite, en haut ou en bas. 

Le gagnant est le premier qui arrive à faire sortir tous ses symboles (les 
lettres sortent en haut, et les chiffres à droite). 

Il n’y a pas de prise, et les sauts ne sont pas autorisés ; on ne peut pas non 
plus se placer sur une case déjà occupée. 


N N 
Chiffres Le E Lettres  O PA: 
S 


LE PROGRAMME : 

Les positions des chiffres et des lettres sont enregistrées dans une table N 
(4, 4) ; les lignes 39 à 79 définissent les valeurs de départ. 

Les lignes 99 à 159 dessinent le terrain de jeu et la ligne 169 affiche le 
Joueur qui a le trait. 

La ligne 199 contrôle le coup joué, de même que les boucles I et J (200 à 
240), et le changement de joueur est assuré par la ligne 330. 


POUR JOUER : 

Le terrain de jeu sera affiché après la frappe de RUN et l'ordinateur attend 
le coup du joueur désigné. 

On entrera d’abord le chiffre ou la lettre représentant le pion à déplacer, 
suivi d’une indication de direction sous la forme N (pour Nord), S (pour 
Sud), E (pour Est) ou O (pour Ouest). 

On pourra ainsi faire 2E suivi de RETURN. 

Si le coup est non valide, il ne sera pas exécuté, et le code du joueur restera 
à l'affichage ; s’il est autorisé, le déplacement sera effectué, et l’on obtient 
l'affichage correspondant au deuxième joueur. 

Le premier qui aura réussi à faire disparaître ses 3 pièces aura gagné. 


EXTENSIONS POSSIBLES : 
On peut envisager d’étendre le jeu avec davantage de chiffres ou de lettres 
et d'améliorer les contrôles. On peut aussi définir une stratégie pour l'ORIC- 


ATMOS . 


122 


239 


2884 


349 


REM À TRAVERS 

DIM Hd,45:Ke1:A$=CHRS&C 27 3 
FOR I=1 TO 4 

NC I, 1 2=ASCC "9" +I 


MG 4, T'isASCE MEN UAT 
MNEXT I 
MG 4, 1 220 
CLS:PAPER 6:IMK 4 
FOR Us TO 4 

PLOT1, 4#1J-1, CHR 17 2: PLOT1, 4#U, CHR 17 2 
PLOT22, 4#U-1, CHR 22 à: PLOT22, 441), CHRSC 229 
FOR Yz=1 TO 4 

IF MCV,U)z9 THEN E$gz"," ELSE BS=CHR&CNG YU 
PLOT4#U, 4#V-1, CHRSC 19 348$ : PLOT4#L, 4#Y, CHRIS 19 3+B8 
MEXT V:HEXT L 

PRINT@Z.18; "JOUEUR AYANT LES "; 

IF K=9 THEN PING:PRIMT "LETTRES" ELSE ZAP:PRINT "CHIFFRES" 
PRINT@2,22; "VOTRE COUP CH,S;E,0ù :";:INPUT RK& 
IF CKei AND RIGHTSCRS, 1 95="0" 

OR CK=9 AND RIGHTSCRS, 12="S"53 THEN 168 

FOR I=1 TO 4 

FOR J=i TO 4 

IF HI, Ji=ASC(LEFTSCRS, 122 THEH 264 

MEXT .] 

NEXT I 

GOTO 164 

Az] ':Ez=.]I 
I=I-CRICHTSCRS, 1 =" SU IC RIGHTSCRE, 1 = "MN 
JeJ-CRIGHTÉCRS, 1 = "EC RICHTECRS, 1 =" 0") 

IF CI=@ AND KzQù OR <J:4 AND K=19 THEH 328 
IF Hl,J3<:4 THEN 169 

NOT, JI=ASCÉLEFTSCRE, 1 32 

NCA,B53=9 

K=ABS(K-1 

GOTO 84 


JOUEUR AYANT LES CHIFFRES 


UQOTRE COUP CH,5,E,0ù :7 2E 
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Mastermind 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de Jeu : logique (un seul joueur). 


Difficulté du jeu : difficile. 
LE JEU : 


Devenu un grand classique des jeux sur micro-ordinateur, ce jeu développe 
le raisonnement déductif ; il faut réussir à trouver le plus vite possible un 
nombre de n chiffres (on pourra prendre n compris entre 1 et 6), en 
disposant à chaque essai de renseignements. 

En effet, l'ORIC répondra en indiquant d’une part le nombre de chiffres 
qui sont, dans le nombre proposé, exactement à la même place que dans 
le nombre à découvrir, et, d’autre part, le nombre de chiffres qui figurent 
dans le nombre à découvrir sans être exactement au bon emplacement. 


LE PROGRAMME : 

Le choix du nombre de chiffres du nombre à découvrir est effectué aux 
lignes 30 et 40. 

Le nombre est fabriqué à la ligne 60 (il pourra y avoir des chiffres répétés). 
L'affichage est préparé par la ligne 99. 

Le ligne 139 s’occupe de la fin de partie. 

Une première boucle I (149-230) teste les chiffres qui sont à la bonne 
place. 

Une deuxième boucle J (169-184) teste les chiffres qui sont présents et 
mal placés. 

Les compteurs sont aux lignes 200 et 220. 

La ligne 249 affiche le résultat, et la ligne 259 comptabilise les essais. 


POUR JOUER : 

On tape RUN et l’on choisit la longueur du nombre désiré (de 1 à 6), suivie 
de RETURN. 

Après l’affichage NO. NOMBRE BON PLACE, on introduit son propre 
essai, suivi de RETURN. 

On obtient immédiatement la réponse (en cas de double chiffre, les résul- 
tats peuvent être un peu délicats à interpréter). 

On introduit ensuite le nouvel essai, et ainsi de suite. 

Lorsque l’on a trouvé, on obtiendra l’affichage TROUVE EN … COUPS. 
On peut sortir du programme à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut chercher à éviter la présence de chiffres doubles dans le nombre 
à trouver, on peut aussi prévoir un changement de page automatique, avec 
rappel des résultats précédents ; on pourra aussi réaliser des jeux ana- 
logues avec des mots, ou d’autres symboles (couleur, taille.…). 


REM MASTERMIHD 
CLS:PAPER 6:IHK 4 
INPUT'COMBIEH DE CHIFFRES :":H 
IF H26 THEH 24 
E=i:F=1 
ABSSTRSCIHTE RNDE 1 ESCH4LEAE MT 
ABSRIGHTSE HE, LEHE 4 51 
PAPER 1:IMH 3:CLS 
PRINT :PRIHTUHO, HOMBRE EQH FLACE" 
PLOTY, 2, CHRSE ZE à 
PRINTREZ, 3+F:E: TAB 5: : INPUT E$ 
eg fax 
IF Ef=#$ THEN PRIHT'TRQLVME EH "iEi" COUPS": EXPLODE : EH 
FOR I=i TO H 
IF MIDS&C4S, TI, 12=MID$CES.T,12 THEH 226 
FOR Jei TO H 
IF IST AND MIDS&CH4S$, TI, 1 2=MID&CES,.1, 1% THEH 244 
MEXT .J 
GOT 236 
=v+1 
GOTO 234 
Het] 
MEXT TI 
PRINTEZd 4 4 TAB E 3 PTHG 
E=E+1:FsF+1:IF F=18 THEH F1 
GOT 11 


HOMERE 


ñ 
1 
2 
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Idem 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de Jeu : jeu de calcul mental (2 joueurs). 
Difficulté du jeu : selon le niveau choisi. 


LE JEU : 

L’ORIC-ATMOS choisit un nombre de n chiffres (selon le niveau de dif- 
ficulté indiqué au début). Ce nombre (le même au début pour les 2 joueurs) 
sera régulièrement décrémenté à chaque tour, d’une quantité également 
choisie au hasard par l'ORIC-ATMOS en début de jeu ; vous devez, à 
chaque coup, choisir une colonne (les dizaines, les centaines, etc.) et ajou- 
ter dans cette colonne un certain entier ; le but est d'arriver à obtenir à un 
moment l'affichage d’un nombre ayant tous ses chiffres identiques. 
Chaque résultat sera affiché un court instant, après quoi la main passera 
au joueur suivant, qui repartira de son précédent résultat. 


LE PROGRAMME : 

Une variable numérique N est dimensionnée à 2 en ligne 40, pour contenir 
les résultats successifs des deux joueurs. 

La ligne 59 permettra d'entrer le niveau de difficulté choisi. 

Le nombre initial est confectionné par la ligne 70. La quantité qui inter- 
viendra dans les décrémentations est obtenue en ligne 90. 

La ligne 120 teste si le résultat n’est pas trop petit. 

La ligne 130 affiche le numéro du joueur. 

Le nombre est affiché en ligne 140 et le jeu du joueur est entré en ligne 
169 (nombre de deux chiffres). 

La ligne 170 incrémente la colonne choisie, et la ligne 180 décrémente le 
nombre de la quantité choisie au départ. 

Le résultat sera affiché un court instant (ligne 210). La boucle I (260- 
280) permet de vérifier si tous les chiffres sont identiques. 

L'’impression et la fin de partie sont effectuées en ligne 290. Les lignes 300 
et 319 s'occupent du changement de joueur. 


POUR JOUER : 

Lancer l’exécution du programme par RUN. 

Le nombre initial sera affiché pour le joueur n° 1, qui joue en tapant xy, 
suivi de RETURN ; x est le chiffre à ajouter, et y est le numéro de la 
colonne où il faut l'ajouter. 

Le résultat (provisoire s’il est trop petit) sera alors affiché un court instant, 
et le trait passe au deuxième joueur, et ainsi de suite. On peut arrêter à 
tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On pourra étendre le jeu à plus de 2 joueurs, améliorer le choix du nombre 
intervenant dans la décrémentation, améliorer les divers contrôles, laisser 
les différents résultats affichés, etc. 


329 


REM ICEM 

CLS 

PAPER 1:INK 9 

Hal: DIM NC2 3: ABæCHREC 27 5 

INPUT'HIVEAU 62-73 :"5M 

U=19:P=9 

MG 1 32 IMTE CUTHeUSC MT A RNDC 1 HUE NT 302 
N6 2 eh 1 5 

A=INTÉ ZÆUTC MT SK RHDE 1 HUE HT 5 


IF Hi THEH FeP+1 

CLS 

IF NOHOCUSCHe1 5 THEH HO H =UTH-ABS6C NCH 30 
PRINTE2,3;"JOUEUR ":H;" ESSAI ":3P:PING 


PRINTR2,6; "HOMBRE : "3: PRINTR17-H, 6: 483 "SU MCHO: AG: "a" 
PRIHT@11,7:4$;i"/";"7654321 ":A$i"o" 

PRINTE2,19;: "VOTRE JEU CH ET C SOUS LA FORME NC)": : INPUT R& 
NC H O=MC H + VAL LEFT@CRS, 1 5 #06 WALÉRIGHTSCRS, 1 23-19 
NCHOENC HA 

IF NCHÈUTH THEN HCHOENCH UT 

NOHÜ=IHTENOH 35 

PRINTEZ, 13: "RESULTAT :"3A$: "JM: NOM: 
PRINT#12,14:A$;"J"3:NCH 

EXPLODE 

AIT 184 

R=STRSE NC H 32 

RE=RICHTSCRSE, LEMCRS 3-1 2 


FOR I=1 TO LEMCRG5-1 

IF MIDSERS, I,12<2MID8C RE, I+1,1: THEM 349 

NEXT I 

PRINT:PRIHT"BRAYO ; JOUEUR "3H:2AP:2ZAP:2AP : END 
H=sH+1 

IF Hè=3 THEH Hsi 

GOTO 144 


JOUEUR 2 ESSAI 4 


NOMBRE: r4s 
ré54221 


SET JEU CH ET C SOUS LA FORME MOT 1 


RESULTAT : 699 
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Horloge 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : dessin. 

Difficulté du jeu : aucune. 


LE JEU : 

Transformer votre écran de télévision en horloge numérique à affichage 
grand format, grâce à ce programme qui vous permettra d’animer une 
vitrine, de faire une horloge fantaisie, et qui pourra se prêter à bien d’autres 
usages. 


LE PROGRAMME : 

La ligne 30 vous permettra d'entrer l’heure sous forme d’un entier de 
4 chiffres (par exemple : 1924 signifera 19 heures 24 minutes). 

Les lignes 89-170 réalisent le dessin, en décalant l'impression au fur et à 
mesure (à l’aide de la variable K, incrémentée en ligne 169). 

Les lignes 189 à 229 assurent la progression de l’heure. 

Les lignes 239 à 299 effectuent l’affichage de deux points clignotants pour 
les secondes. 


POUR JOUER : 

Dès le lancement par RUN, le programme se place en attente de l’heure ; 
on tape et on attend le top pour appuyer sur RETURN. 

L’heure s'affiche alors assez rapidement et l’horloge est en route. Pour 
l'arrêter, il faudra appuyer sur les touches CTRL et C. 

L’heure sera entrée sous forme d’un entier ayant impérativement 4 chiffres, 
pour 5 heures 6 minutes, on veillera à taper 0506 suivi de RETURN. 


EXTENSIONS POSSIBLES : 
Il sera intéressant de modifier le programme pour en faire un réveil, avec 
alarme ; on peut aussi améliorer le graphisme, introduire la couleur. 


REM HORLOGE 
CLS : BÉ=CHRSC 255 3: PRINT CHR&C 175 
INPUT'HEURE € FORME XKX#Xx 2":A$ 
PAPER 6:INK 1:CL35 
Kæ=1 
AzVALOMIDSE AS, K, 122 
IF A€>1 AND A<>4 THEN PRINTREX#K-3, 1; B$+B$+B5 
FOR Je1 TO 5 
IF A=9 OR CA>3 AND A<}79 THEN PRINTREKK-3,J:ES$ 
IF A5 AHD A<>6 THEN PRIHTBE#K-1,J;B$ 
IF A=G OR A=Z2 OR A=6 ÜR H=8 THEN PRINTEE#K-3,.J+4; 5% 
IF A<>2 THEN PRINTRE#K-1,.J+4;E% 
MEXT J 
IF 421 THEH PRINTOS#K-2,5;B%&+D# 
IF A<>1 AND A<>4 AND A<?7 THEN PRINTRÉ#K-3,9:BS+B$+b$ 
KakK+1 | 
IF K£S THEH 64 
Azl + VALCAS : 
IF A=2369 THEH A=ÿ 
A$= "999 "+RIGHTSCETREC À), LENE STRSE A 3-1 3 
A$=RIGHTÉC AS, LEN( AS 3-3 2 
IF RIGHTSCAS,22="69" 
THEN AS=RIGHTS#C STRSC VALLLEFTSC AS, 2093+19,23+"99" 
H=1 
FOR Jei TO 128 
FOR I=1 TO 32 
IF Hzi THEN PRINTRI13,6:"æ" ELSE PRINTR13,6;" " 
MEXT I 
H=ABS( H-1 3 


HEXT J 
PIHG:GOTO 49 
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Reines sur l’échiquier 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : difficile. 


LE JEU : 

Le programme utilise un algorithme très performant pour résoudre un 
problème qui a donné du fil à retordre à des chercheurs, même aussi 
célèbres que le mathématicien GAUSS, qui n’avait pas pu découvrir toutes 
les solutions. Il s’agit de trouver toutes les manières de disposer des reines 
sur un échiquier, de telle sorte qu'aucune ne puisse en prendre une autre. 
Le programme proposé est très souple, puisque vous disposez même de la 
possibilité de choisir la taille de votre échiquier, et les résultats seront 
affichés à la fois sous forme visuelle et sous forme numérique. 


LE PROGRAMME : 

La ligne 39 vous permet de choisir la taille de l’échiquier. 

Une variable D sera dimensionnée en conséquence, en ligne 49. 

Une boucle d'exploration principale I (59-119) contient une sous-boucle 
J (89-190) qui réalise le contrôle de non-alignement (ligne 90). 

Si, au cours de l’exploration, on rencontre un alignement, on revient en 
arrière, en utilisant les lignes 239 à 279 et on recommence. 

La boucle F (139-219) assure l'impression de l’échiquier, et la boucle K 
(169-180), que l’on pourra éventuellement supprimer, assure l’impression 
du résultat sous forme d’un code numérique correspondant à la position 
des pièces dans chaque colonne. 

La ligne 229 permet un arrêt après l’affichage de chacune des solutions. 


POUR JOUER : 

On lance le programme avec RUN, puis on tape la dimension de l’échiquier 
désirée, et on fait RETURN. 

Il suffit d'attendre, avec patience (plus l’échiquier sera grand, plus l’at- 
tente sera longue). La première solution sera affichée puis le programme 
s'arrête, et il faut appuyer sur les touches 9 et RETURN pour le faire 
repartir. Pour terminer l’exploration sans avoir toutes les solutions, il fau- 


dra taper CTRL et C. 
EXTENSIONS POSSIBLES : 


On peut envisager de trouver des algorithmes pour tous les problèmes 
analogues (position de tours, déplacement d’un cavalier, etc.). 


A RENM REIHES SUR L'ECHIGUIEFR 
CLS: AGECHREE ZT 1: PRINT CHERE LE 


Fes 
—, 


34 JHPUT'TAILLE GE L'ECHIQUIER ‘35 


DIM CéS5 
I=i 
Dé Tizi 
IF I=1 THEN 116 
FOR ei T0 T1 
IF DéToeDc 5 OR CABSE DE T Di set. THEH Z4f 
HEXT .] 

I=I+1:IF Tées THEH 66 

CLS 

FOR Fsl TO 5 

PRIHTREXF +2, 65 F 

PRINTRE, 2#PF5F 

FOR kel TOI & 

PRINTRS#ÆR4S, SP: 40 

MEXT K 
PRINTREÆDE F 45, SEP: A: MR CHARGE LS 1: 
PRIHTIREXKDE F4. EF: AS: "AU" 
PRIHTOF +42, 206: RIGHT&C STRSE Die F4, 14 
HET F 
4 ZAP: EAP: ZAP:PRINTRZ, SE: 

FER GA — RETURN — POUR CONTINUER" à: :TMPUT R& 
A I= 
G DT =D TI +1 
G IF Déliées THEM Fa 
A I=I-1 
F4 IF 14:54 THEN 24f 


D Dm im mi 


it O0 —Jj Un 


— 
à" 


D pb pb bob bob el bel pet je pu 
AO CO JIM CN Be to Pine im: 
DER ENT EN ENT ERTELTE CELL ELX) 


Fo Foi Pa 
Fo ee in 
D Si 


in Bit 


FO Fo Fo Fo Fe 


JOUEUR 0 


LICHE :% 4 
COLOHHE:& Z 





131 


132 


Répétitions 


REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : jeu de mémoire (1 ou plusieurs joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Des nombres vont apparaître un par un. 

Le joueur devra à chaque coup les répéter tous, depuis le début (ce qui 
signifie qu’il en aura un de plus à taper à chaque fois). 

Il devra essayer de tenir le plus longtemps possible. Le meilleur score est 
mémorisé après chaque partie, ce qui permettra éventuellement de jouer 
à plusieurs. 


LE PROGRAMME : 

La ligne 69 appelle un sous-programme (lignes 1900 à 1960) qui donne 
la règle du jeu. 

La ligne 89 fabrique les chiffres, qui sont ensuite stockés dans une variable 
alphanumérique A$. 

La ligne 99 permet l’impression du dernier chiffre au hasard sur les cin- 
quième et sixième lignes de l’écran, et la durée de l’affichage est détermi- 
née par la ligne 190. 

La ligne 129 attend la réponse du joueur, qui est comparée à la réponse 
correcte en ligne 130. 

La ligne 169 marque les points. 

La ligne 179 contrôle le meilleur score. 

Les affichages de fin de partie sont effectués de la ligne 299 à la ligne 240. 


POUR JOUER : 

Le lancement du programme par RUN provoque l’affichage de la règle du 
jeu, puis d’un chiffre qui disparaît. L'appareil pose alors la question 
VOTRE SEQUENCE. 

On lui répond en redonnant le chiffre, suivi de RETURN. Si c’est exact, 
on a un court instant l’affichage de EXACT. ATTENTION, puis un nou- 
veau chiffre est affiché, qui s’efface, et de nouveau la question VOTRE 
SEQUENCE. On retape alors les deux chiffres déjà obtenus, suivis de 
RETURN. 

On continue ainsi (3 chiffres, puis 4, 5, etc.) jusqu’à ce que l’on fasse une 
erreur, ce qui provoque l'affichage du score (et du meilleur score obtenu 
jusqu’à présent), suivi de la question AUTRE PARTIE (O/N) ; on tape N 
pour arrêter. 

On peut aussi quitter le programme à tout moment, en tapant CTRL et C 
avant l'affichage d’un chiffre. 


EXTENSIONS POSSIBLES : 
On pourra réaliser des jeux analogues et plus ou moins perfectionnés en 
remplaçant les chiffres par des lettres, ou des couleurs, ou des sons. 


14 REM REFETITIOHE 

24 CLS :B$=CHR&C 27 2 

39 PAPER 3:IHK 4 

49 M=9 

54 A$= RL 

68 GOSUB 166% 

F4 H=f 

84 H=INTE RDC 1 1416 01: AS=AG+RIGHTÉE ETES 1, 1 1 


94 CLS: 2=RHD6 1 KGOEE: PRTHTEZ, Si; Me PRINTREZ, 656%; "I" 


144 AIT 1384+RHD6 1 +254 

114 CLS:PAPER G:IHK 2 

124 FRIHTRZ, 143 "VOTRE SEGUENCE : "3: INPUT R& 
134 IF R$&<2A$ THEH 194 

144 PRIHT:PIHG:PRIHT"E#ACT , ATTENTION" 
154 AIT 264 

164 H=H+1 

174 IF MEH THEH MEH 

184 GOTO 65 

194 CLE:PRIHT:EAP 

244 FRIHT'YOTRE SCÛRE EST GE "iH 


219 PRINT:PRINT'MEILLEUR SCORE ACTUEL :":M 
224 PRIHT:PRIHT"ALTRE FARTIE € ét : THPUT K$ 


239 IF R$="H" THEN EXFLODE : HT 
244 GOT SA 
1444 CLS:PAPER Z:IHE 4 


1414 PRINT:PRIHTUYQLUS DEVEZ REFETER TOUTE LA SERTE GES" 


1424 FRINT'HOMBRES APPARUES GEFUTS LE CEBUT OLI IEU 
1424 PRIHT:PRIHTUIL % EH A OUH GE F 





1454 IHPLIT F$ 
1464 RETURH 


LQUS ODEUEZ REFETER TOUTE Li SERIE DES 
HOMÈRÉS APFARUS OErUIS LC OEBUT Eu JEU 


IL Y Et À UN OE FLUS h CHAQUE FOIE 
BPPUVEZ SUR A — RETURN — POUR COMMENCE 


UÜTRE SCORE EST GE 
MEILLEUR SCORE ACTUEL (El 
AUTRE PARTIE © DH 37 


A CHAQUE FOIE" 
1444 PRTHT:PRIHT'APEUMEZ SUR  — RETURN — POUR COMMENCER" 
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Mots 


REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de Jeu : jeu de lettres (pour 1 ou plusieurs joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

[est difficile d'imaginer plus simple dans son principe que ce jeu, qui se 
contente d’afficher dans le désordre les lettres prises dans une trentaine 
de mots. Mais essayez de jouer, et vous verrez que ce n’est pas si facile, la 
difficulté variant évidemment selon la liste de mots que vous aurez intro- 


duits en DATA au préalable. 
LE PROGRAMME : 


La ligne 20 permet de dimensionner la variable A$ (1) qui contiendra les 
mots. 

La boucle I (39-59) saisit la liste des mots (inscrits en DATA aux lignes 
240 à 280). 

La ligne 79 choisit un mot au hasard ; la boucle [ (199-159) contrôle si 
une lettre n’a pas déjà été tirée, et reprend les lettres dans le désordre. 

La ligne 169 affiche les lettres, et la ligne 179 attend votre proposition, 
qui est testée en ligne 180. 

Le nombre d'essais est incrémenté en ligne 190. 

La fin de partie est contrôlée par la ligne 290, et le score est affiché en 
ligne 220. 


POUR JOUER : 

On lance le programme par RUN. Une série de lettres est affichée dans le 
désordre, et il faut essayer de retrouver le mot correspondant. 

On tape le mot supposé, puis RETURN, et une nouvelle série de lettres 
sera affichée, si l’on répond O à la question AUTRE ESSAI (O/N). 


Le score et le nombre d’essais sont affichés en fin de partie. 


EXTENSIONS POSSIBLES : 

On peut imaginer de minuter le temps d’apparition du mot, ou de faire 
défiler les lettres l’une après l’autre sur l'écran. 

On peut aussi corser la difficulté en introduisant des JOKER, jouer à plu- 
sieurs, tenir le compte des points, etc. 


REM MOTS 

DIM A8 30):829:E=09 

FOR I=1 TO 30 

RERD AG I) 

NEXT I 

CLS 

ZæINTC RAD 1 2#39+1 } 

IF ASCZ)e"" THEN 78 

RS=AGC ZI ABe"": AGCZI="": VERS 
FOR 1=1 TO LENCRS) 


119 Z2=INTC RNDC 1 DXLENC RS 2+1 


IF MIDSCRS,2Z,13="-" THEN 119 
AS=AS+MIDSC RS, 2, 12 


149 RSaLEFTSCRS, Z-13+"-"4+RICHTSCRS, LENCRS 2-2) 
159 NEXT I 

168 PRINT'LES LETTRES SONT :":4$:2ZAP:2AP:2fAF 
179 PRINT@2,6; "VOTRE SOLUTION :";:INPUT 5% 
189 1F 58=V8 THEN S25+1 


EsE+1 


208 PRINT@2,12; "AUTRE ESSAI € OH 3 :"::INPUT R& 


IF LEFT#CR#,1)="0" THEN 68 


228 PRINTE2,15; "VOTRE SCORE :":S;" SUR ";3E;" ESSAIS" 

238 EXPLODE : END 

240 DATA JAMBON, ENERGUMENE , AFF ILIE, ERUDIT, INSIGNIFIANT , REALISTE 

259 DATA IMPRESSIONNANT , ALLECHANT , EPIQUE , INTREP IDE ; COUARD , ORDINATEUR 
269 DATA TREVE, BANDEROLLE , SENAT , ACTUEL , CONSACRE , DIEDRE 

279 DATA LIVRE, TERMINE , SIGNATURE ,; MALODORANT , AIMANT , ARBITRAIRE 

284 DATA CHALEUR, DPPORTUH, PELURE , ALTRUISTE , RAMONEUR ; NOVICE 


LES LETTRES SONT :EEULFR 


LIOTRE SOLUTION :% FELURE 


AUTRE ESSAI € ÜÆN 5 :7 


VOTRE SCORE : 1 SUR 
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Permutations 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : moyenne. 





LE JEU : 

L’ORIC-ATMOS vous demande d’abord le nombre de lettres que vous 
désirez permuter (pas plus de 12). A partir de là, il va vous afficher le 
nombre correspondant de lettres prises dans le début de l’alphabet, d’abord 
dans le désordre (DEBUT) puis dans l’ordre (FIN). 

Vous devez réussir à remettre dans l’ordre les lettres données au début, en 
utilisant des permutations sur les n premières lettres à partir de la gauche, 
avec le moins d’essais possible. 


LE PROGRAMME : 
La ligne 49 permet de choisir le nombre de lettres, et la ligne 59 contrôle ‘ 
que l’on n’en demande pas plus de 12. 

La ligne 89 réalise le brouillage, en tirant au hasard la nouvelle position 
de chaque lettre. Les lettres sont ensuite ajoutées au fur et à mesure de 
leur tirage, dans une variable B$ (ligne 190), supprimées dans A$ et re- 
placées en C$, dans le bon ordre (lignes 119-120). 

La ligne 149 contrôle le nombre de lettres de B$. 

Les affichages sont effectués aux lignes 169, 179 et 180. 

Le retournement est fait, lettre par lettre, dans la boucle I (219-230) ; le 
résultat est placé dans B$ en ligne 249, affiché par la ligne 250 et comparé 
au résultat final en ligne 260. 

Le nombre d’essais sera affiché en fin de partie, grâce à la ligne 270. 


POUR JOUER : 

Après avoir tapé RUN, on obtient l’affichage de la question NOMBRE DE 
LETTRES (DE 1 A 12) ; on répond en frappant N, suivi de RETURN. 
L'affichage suivant présente l’ordre initial (DEBUT) et l’ordre à obtenir 
(FIN). 

On joue en indiquant le nombre de lettres à permuter à partir de la gauche, 
par exemple : sur un affichage initial de GEABDFC, si l’on tape 3 et 
RETURN, on obtiendra AEGBDFC. 

On poursuivra jusqu’à l’obtention de l’ordre désiré. 

Le score sera affiché en fin de partie ; ainsi qu’une question AUTRE PAR- 
TIE (O/N) ; répondre O si l’on désire faire une autre partie. 


EXTENSIONS POSSIBLES : 

On pourra utiliser le même type de jeu pour, par exemple, reconstituer un 
dessin caché dont les diverses parties seraient repérées par des lettres. On 
peut aussi réaliser des permutations plus complexes (par exemple le fait 
de permuter deux lettres permute les deux voisines de la lettre la plus à 
gauche, etc.). 


14 REM PERMUTATIONS 


250 


264 
era 
284 
298 





D$=CHR$C 27 à 
CLS 
PRIHT:IHPUT'NOMBRE DE LETTRES € DE 1 À 12 3 :"35H 
IF H>12 THEN 34 
A$="ABCDEFGHIJKL" :C&=" "ipg="" 
CLS:PAPER 6:INK 4 
#= INTC RNDC 1 3#H+1 2 
IF MIDSCAS,X,15=" " THEN 89 
BS=MIDSC AS, #4, 12+85$ 
CH=LEFTSCCS, 4-1 24MID8C AS, X, 1 +RIGHTSC CS, 12-45 
AS=LEFTSC AG, X- 134" M+RIGHTSCAG, 12-00 
S=1 
IF LENCBSI<ÈN THEN 89 
CS=LEFTS$C CS, LEMCES 5 5 
PRINT@2,4;"DEBUT :":D0$;"J";:B$:PRIMTES,3;D$; "I"; ES 
PRINTEZ,6:"FIH si DGi "JM; CS: PRINTOS, 5:08; "JM: CS 
PRINTEZ, 14; "PERMUTATION HUMERO ":3S:PRIHT:PIHG: 
INPUT'YOTRE GQUANTITE "5L 
IF L?MH THEH 184 
SeS+1:A$="" 
FOR 1=1 TO L 
AS=AG+MIDSC BE, L-I+1,15 
NEXT I 
BS=AS+RICHTEE ES, LENS BS 3-L 
ZAP : ZAP : ZAP:PRINTRZ. 15; "RESULTAT :":D$;".J";p@: 
PRIHTRI2,16:D8;"J";BS$ 
IF B$<>C$ THEN 189 
EXPLODE : PRINT :PRIHT'TROUVE EN ":S-1;" ESSAIS" 
PRINT: INHPUT'AUTRE PARTIE € O/M 5:":R& 
IF LEFT&CRS, 13="0" THEN 29 


oeeur : CAE 
FIH : ABCDE 


PERMUTATION HUMERQ 7 
VOTRE QUANTITE 7 5 


RESULTAT : BCE 


TRÔUUE EH 7  ESS4IS 
AUTRE PARTIE € O/H :7 HN 
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Bridge 


REFERENCES : 

Difficulté de programmation : difficile. 

Catégorie de jeu : réflexion. 

Difficulté du jeu : variable, selon le problème posé. 


LE JEU : 

Vous ne trouverez pas, dans ce programme, un partenaire pour vos bridges 
mais, plus exactement, une simulation pour l'affichage d’une donne ; cet 
affichage est réalisé jeu par jeu. On peut, à partir de là, se poser toutes 
sortes de problèmes : annonces, jeu de la carte, etc. 


LE PROGRAMME : 

Les lignes 59 et 69 définissent un jeu de 52 cartes. 

La variable B$, en ligne 70, permettra de donner en abrégé le nom des 
couleurs et aussi d’améliorer la désignation de certaines cartes (19, valet, 
dame, roi et as). 

La boucle J (80-229) réalise le tirage de quatre jeux de 13 cartes. 

La boucle I (99-199) réalise tirage et impression. La carte est choisie 
parmi les 52 disponibles, en ligne 190. 

La ligne 119 calcule la couleur de la carte tirée. 

La ligne 129 vérifie que cette carte n’a pas déjà été tirée. 

Les lignes 130 et 149 s'occupent de l’impression complémentaire dans le 
cas où l’on tire un 19, valet, une dame, un roi ou un as. 

L’impression est réalisée par les lignes 159, 169 et 179. 

La ligne 180 permet d'éliminer les cartes déjà tirées, et la ligne 209 réalise 
un arrêt entre chaque affichage. 


POUR JOUER : 

On lance le programme par RUN. 

Une première série de 13 cartes est affichée verticalement. Il suffira d’ap- 
puyer sur les touches @ et RETURN pour obtenir la deuxième série de 
13 cartes. On procédera de même pour la troisième et la quatrième. 


EXTENSIONS POSSIBLES : 

On peut imaginer de représenter les 13 cartes sous une forme plus conven- 
tionnelle. 

On peut aussi ajouter la possibilité de faire des annonces (et de les compa- 
rer à celles de l’ORIC-ATMOS, par exemple), ou introduire des possibilités 
de jeu de la carte, y compris pour l'ORIC-ATMOS. 
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Fe" 24e Fes 1VOEH" 
RÉSRÉ+RS+RÉ+ES 
E$="TRCACORTGAAQE" 
FÜR Ji TO 4 
FOR Iz1l TO 13 
es THTÉ RHDE 1 ELEC RS 141 5 
Ga2kINTE C1 1/15 +1 
IF MID&CRS, #4, 1 = "AU THEN 1H 
Ta LEXINTE 15 0 
TST-13#6 T<4 
PRIHTRIGEJ-S, T0 ES MID RS, 4, 115 
IF Tie THEH PEINT MICG&E&,T,1 
PRIHTBIGE.J-4, I: MICSC ES, ES, 2 45 C& 
R$SLEFTÉE RS, 1 OUR TCNTÉERS, LEHCRS 1-4 CAF 
HEXT I 
FPRIHTRS. 18: "FAIRE & - FETUEH -— 
POIL CONTINUER": : INPUT 5% 
PRIHTRZ. 16: " : 
MEXT J 
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Hanoï 


REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion. 


Difficulté du jeu : difficile. 
LE JEU : 


Il est présenté, ici, dans une version pour un joueur. On dispose d’un 
certain nombre de disques (8 au plus) et l’on doit les transférer de la tour 
numéro 1 à la tour numéro 3, en respectant une seule règle : à aucun 
moment, un disque ne peut être recouvert par un disque de diamètre 
supérieur. 

Le nombre de coups n’est pas comptabilisé par ce programme mais, par 
contre, les coups illicites seront refusés. 


LE PROGRAMME : 

La variable D$, en ligne 49, servira à dessiner les disques. 

Le nombre de disques est entré en ligne 59 et refusé s’il y a plus de 8 disques. 
La boucle I (79-99) permet de fabriquer une variable A(1) qui contient 
l’état de la première pile sous forme numérique (en ligne 39, trois variables 
sont prévues pour conserver l’état des trois piles). 

Les socles sont dessinés par la ligne 119 et les trois piles par les boucles 
emboîtées I (130-199) et J (149-189). 

Le contrôle du coup est effectué par la ligne 269 et l’état des piles est 
modifié par les lignes 279 et 280. 


POUR JOUER : 

Après un RUN qui lance le programme, on entre le nombre de disques 
demandés, suivi de RETURN. On obtient le dessin de l’état initial et, à la 
question TOUR DE DEPART, on répond en donnant le numéro de la tour 
de départ. Ce numéro (1, 2 ou 3) sera refusé si la tour est vide. Puis on 
tape RETURN et, à la question TOUR D’ARRIVEE, on répond par le 
numéro de la tour d’arrivée. 

Si le coup n’est pas possible, on sera obligé de recommencer à TOUR DE 
DEPART. Si le coup est possible, le déplacement est réalisé et l’on recom- 
mence. 


EXTENSIONS POSSIBLES : 

On pourra dessiner des disques de différentes couleurs, introduire un 
compteur de coups et, surtout, définir un jeu pour l’ordinateur. 

On peut aussi essayer de compliquer le jeu avec deux tiges de plus et deux 
Joueurs, chacun ayant des disques de couleur différente, par exemple. 


af 


be pt OO 4 Mi 
CRU RCA ET ENT EL, 


REM HAHÜI 


CLS :ES=CHRSC 27 3: PAPER :INE € 
DIM ACGD: AC IG AC Eee: ACT ES 


Ce": FOR Ie1 TO G:D$=0D$+CHRC ZTS GE MEST T 
IHPUT'HOMERE DE TOURS € MOINS DE & 3:55 M 
IF H>=8 THEN S6 

FOR I=G TO H-1 

A 1 = VALLE STREC AC 1 HS TREEM-T 0 


MEXT I 
CLS 
PLOT1, 14, CHRS$C G 3: PRIHTRE, 14:06: PRINT 4, 14: 0%: 


FPRINTRZE, 14: 0$ 

PRIHTRÉ, 14: "1": PRIMTRIS, 14; "EU: PRIHTESG, 1453" 
FOR I=ä TO H-1 

FOR Js1 TO 3 

BS=RICHTSE STRSE AC .I 51, LENCETRSC AC 441 
SéeLEFTSCOS$, VALCMID&CES, I+2, 153% 

IF LENS ER 4 1+1 THEN PRINTRIZSX#.I-18,13-Ti:E$;: "ETS 
HEAT . 

NEXT ï 

PRINTRZ.16: "TOUR DE CGEPART :"3:IMPUT D 

IF C3 OR D<1 THEH 246 

IF AD)=9 THEN 244 

PRINT: INPUT'TOUR D'ARRIVEE :":54 

BH=RIGHTSÉE STRSGC AC D 2 5, LEHC STESE AC D 309 31 5 
CHERTICHTSE STRSE AC A 202, LENC STR&C AC A 3 11 5 

IF MID&CES, LENCES 3.1 2MIDS&C CS, LEME CS 3,1 4 

THEH 264 

A6 A = YALE CS+MIDEE ES, LEHS E%$ 3, 1 33 

AG D = VALCLEFT#CB$, LEHC ES 5-1 à à 

ZAP: ZAP:2AP: GOT 164 


TOUR DE DEPART :7 3 
TOUR C'ARRIUEE :7 Z 
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Losanges 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : interlude. 
Difficulté du jeu : aucune. 


LE JEU : 

Le programme va progressivement construire sur l’écran un losange, puis 
il va l’effacer progressivement, le reconstruire, et ainsi de suite. 

Vous pourrez envisager de l’utiliser pour vous endormir, si les moutons ne 
vous suffisent plus. 

Une version, très légèrement modifiée, vous est également proposée, qui 
vous permettra de faire apparaître des motifs aléatoires après la construc- 
tion de chaque losange. 


LE PROGRAMME : 

Une première boucle K (59-134) définit les dimensions des tracés succes- 
sifs. 

La deuxième boucle I (69-129) trace des bandes de points, en utilisant les 
instructions CURSET (lignes 80 à 119). 

Si la variable S (ligne 70) est à 1, alors il y aura effacement (on utilise 
CURSET, mais en se servant des couleurs du fond pour effacer). 

On obtiendra dans le deuxième programme un effacement aléatoire en 
modifiant la ligne 70. 


POUR JOUER : 
On commence l’exécution du programme avec RUN, et on regarde. 
On peut arrêter à tout moment en tapant CTRL et C, et on revient au 


mode TEXT. 
EXTENSIONS POSSIBLES : 


On pourra introduire le son, utiliser l'instruction DRAW qui permettra un 
tracé beaucoup plus rapide, imaginer sur des principes analogues divers 
programmes (kaléidoscope, tapisserie…). 


REM LOSANGES 

HIRES 

PAPER 3:IHK 1 

CL£ : S=5 

FOR K=G TO 44 

FOR 1=9 TO K 

IF SA THEH OH INTÉRHOE 1 2#5+1 5% GOTO 169, 174.164. 194, 264 
CURSET 124-K+1,1@@-I,1 

CURSET 124-K+1.1@8+1I,1 

CURSET 128+K-1.189G+I.1 

CURSET 124+K-1,14@G-T,1 

MEXT I 

NEXT K 

S=NOT S 

GOTO 5 

CURSET 129-K+1:194-1. 
CURSET 129-K+1.194+1I. 
CURSET 124+K-1,184+1I, 
CURSET 12@+K-1I,144-1,2 
GOTO 124 


HU Fo Fo 





19 KREM LOSANGES € SANS ALEAS 
29 HIRES 

39 PAPER 6: IHK 4 

48 CLS:5=8 

59 FOR K=9 TO 49 

66 FOR I=4 TO K 

7@ IF S5<24 THEN 164 

84 CURSET 129-K+1,1@8-I,1 
96 CURSET 129-K+I,19@+I,1 
199 CURSET 129+K-I,1@@+1.1 
119 CURSET 129+K-I,194-1I,1 
129 MNEXT 1 

139 NEXT K 

149 S=NOT 5 

159 GOTO 58 

168 CURSET 129-K+1,199-1,2 
176 CURSET 129-K+1,194+1,2 
188 CURSET 129+K-1I,199+1.2 
199 CURSET 129+K-I,1@9-1I,2 
288 GOT 128 
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Mathieu 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : dessin aléatoire. 
Difficulté du jeu : aucune. 


LE JEU : 

On utilise la définition d’une courbe en coordonnées polaires et la fonction 
CURSET pour obtenir sur l’écran des dessins aléatoires (de type fleur), 
plus ou moins élégants. 

Les deux paramètres principaux A et B pourront être, si nécessaire, entrés 
à la main (instruction INPUT) pour faire une étude plus systématique des 
différentes courbes possibles. 


LE PROGRAMME : 

Les 3 premiers paramètres Z, K et T, introduits en ligne 39, définissent le 
rayon maximum et l’occupation de l’écran. 

Les variables aléatoires A et B, choisies entre Q et 3, de la ligne 60, défi- 
nissent l’allure de la courbe ; il pourra être intéressant de les introduire 
manuellement (par exemple : 69 INPUT A, B). 

La boucle H (79-129) réalise le tracé, point par point. Le rayon R est 
calculé en ligne 89, et le passage en coordonnées cartésiennes est effectué 
aux lignes 90 et 100. 

L'affichage des points est réalisé en ligne 110. 

Les lignes 139 et 149 impriment un message de fin. 

La ligne 169 permet de refaire un nouveau dessin. 


POUR JOUER : 

On lance le programme en tapant RUN. 

Le dessin sera ensuite exécuté automatiquement. 
Le message “c’est fini” signale la fin du tracé. 


Si on veut un nouveau tracé, on tape Ÿ. 
Pour arrêter, faire CTRL et C, et TEXT. 


EXTENSIONS POSSIBLES : 

On pourra essayer d'utiliser d’autres fonctions pour réaliser des tracés 
encore plus extraordinaires (par exemple avec simulation de la troisième 
dimension). 
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Bible mou 
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nb et pt pt LUN QG 
= 
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Lt ER : 


Eh pub pont 
JT 28 
ANRT EUX: 


FENM MATHIEL 
HIFES 
cer:keñ:Tes 
CLS 
Ce INTERNE 1 ES Fer: PAPER CINE F 
= HERMDC 1 1 BE SÆRMOC 1 
FOR He TO 6,28 STEF 3, 14-154 
REZXESTME MAT 
el SGATNTÉEÆRÆCOSE EH 2 
a LGA+THTÉEERÆESTNE EH 1 
CURSET %x,%:1 
HEXT H 
A$="C'EST FINI" 
CURSET 64,24,3:FO0R Ii TO 14:CHAR ASC 
D ee ae SERNO SANT k 
THG 
INPUT"'FAIFE &G - RETURH - POUR CONTINUER" :F% 
IF LEFT&CRS, 1e" THEN 264 


L'EST FIHI 
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Le loup et les agneaux 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

C’est un jeu assez connu qui peut être pratiqué indifféremment sur un 
damier 8 sur 8, ou 19 sur 10. Il est présenté, ici, dans une version pour un 
damier de 8 cases ; l’un des joueurs choisit le loup qui se déplace suivant 
les diagonales, en restant sur les cases noires, d’une case à chaque coup, 
et qui peut avancer ou reculer. Les agneaux se déplacent également sur 
les cases noires, en diagonale, mais n’ont pas le droit de reculer. Les cases 
déjà occupées sont interdites (pas de prises), et il n’y a pas de saut. 

Le loup gagne s’il réussit à arriver sur la ligne du bas avant que tous les 
agneaux n'occupent celle du haut ; les agneaux gagnent dans ce dernier 
cas, ou s'ils arrivent à bloquer le loup. 


LE PROGRAMME : 

Une variable A$, en ligne 39 contient les positions de départ. 

La boucle I (89-139) dessine le damier, et les lignes 159 à 199 placent le 
loup et les agneaux. 

La ligne 299 gère le changement de joueur. 

La ligne 229 affiche JEU DU LOUP si c’est le joueur qui manipule le loup 
qui a le trait, et la ligne 239 JEU DES AGNEAUX dans le cas contraire. 
Les lignes 259 à 260 et 289 à 300 analysent la réponse, en fonction du 
Joueur concerné. 


POUR JOUER : 

RUN déclenche l'arrêt sur l’attente d’une entrée : 9 et RETURN si l’on 
veut que les agneaux commencent, et 1 pour le loup. Après quoi, le damier 
s'affiche et la phrase JEU DU LOUP (A, 5, Z, X) pour le loup et JEU DES 
AGNEAUX (ND et NG) pour les agneaux. 

Les agneaux répondent par un numéro, suivi de D ou G (pour droite ou 
gauche). 

Ainsi 2D provoque le déplacement de l’agneau numéro 2 qui monte en 
diagonale d’une case sur la droite. Le déplacement effectué est affiché, 
puis on obtient une question identique pour le loup qui répondra en tapant 
À, S, Z ou X, suivant la direction choisie : 


On devra veiller à ne pas sortir de l’échiquier et à ne pas venir sur l’adver- 
saire, aucun contrôle n’ayant été prévu. 


EXTENSIONS POSSIBLES : 

On pourra prévoir un repérage des cases, un graphisme plus soigné, des 
contrôles de non dépassement des limites du terrain, de non venue sur une 
case déjà occupée. 

On pourra aussi envisager de jouer sur un damier de 19 cases sur 19 cases, 
ce qui augmente légèrement la difficulté du Jeu pour les agneaux. Mais 
l'extension la plus intéressante à réaliser sera certainement la réalisation 
d’un programme permettant à l’'ORIC-ATMOS de se comporter en adver- 
saire honorable, soit avec le loup, soit avec les agneaux (et, dans ce cas, il 
sera possible de définir une stratégie gagnante pour l'ORIC-ATMOS. 


JEU OÙ LOUP CA,S,2,K1:7 Z 
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REM LE LOUP ET LES AGNEAUX 
INPUT'AGNEAUX CB3 OÙ LOUR <13 :";6 
A8="81938587 14": DBaCHREC 27 3 PRINT CHRS(17 
CLS: PAPER 6:INK 4 
PRINT" A BC D EE F GG  H" 
FOR Imi TO S:PRINTERZ, 241: I'NEXT I 
GRACHRIC 255 ) Fa 8+CR+CR+GE : FHaDS+"AU4FE 
FOR Ixi TO 8 
FOR Jel TO 8 
Tu6I+J3/2:PRIMTRA#J, 21; | 
IF TæINT(T) THEN PRINT F#:PRINT@4#.J, 241-1:F# 
ELSE PRINTÆ4#.J+1,2*1:" 
NEXT J 
NEXT I 
FOR Ii TO S:PLOTA, I+17, CHRSC 193: NEXT I 
PRIHT@R4#VALE MID AG, 19, 1 3243, 2#VALCMIDSC AS, 9, 1393 "L" 
PRINTE4#VALCMIDSC A8, 2, 13243, 2#VALCMIDSC AG, 1,192;"1" 
PRINT@R4#VALCMIDSC AS, 4, 12243, ZXVALCMIDSC AG, 3, 1233; "2" 
PRIMHTRA4#VALEMIDSC AS, 6, 12343, 2XVALCMIDSEC AG, 5, 12); "3" 
PRINTR4#£VALE MID AG, 8, 13243, 24 VAL MIDEC AG, 7,1939:"4" 
SeABS(S- 1) 
PRINTRZ,24;" k 
PRINTRZ,29;:IF S=4 THEN INPUT'JEU DU LOUP <A,5,2Z,49:":R# 
IF S=1 THEN INPUT"JEU GES AGNEAUX CND OÙ HG5:":R&:GO0TO 2489 
C=14 
Az YALCRIGHTSCAS, 23240 C4+1 AND R="x" +0 C-1 AND R$="2"5 
A=A-<C+1 AND Rés"A"i-CC-1 AND R$="5"5 
GOTO 399 
Ca2#VALCMID#CRSE, 1,100 
AVAL MIDSC AG, C-1,233-COANDRIGHTSCRE, 1 3e 
MD") LIANDRIGHTSERS, 1 2e" G") 
AS=LEFTSC AS, C-2 +RIGHTEC ETREC A 5, 2 +RIGHTEC AS, LENS AG 2-C 3 
GOTO 74 


Niveau 4 


Nom du programme 


Thèmes et particularités 





Tirage de dés 


Jeu de loto 
La bombe 


Ardoise magique 
Affichage publicitaire 
Evasion 

Chapeaux 

Combat aérien 
Dessin de dés 

Le jeu du missile 

Le singe 

Le jeu du 15 


Adresse 

Sous-marin 

Zombies 

Diago 

Décomaque 

Chasse au sous-marin 
Clavier 


Le lézard d’Alice 


Calculatrice 


Suffisamment souple pour être utilisé par- 
tout. 
Gagnez sans problème, au prochain tirage. 


Saurez-vous la découvrir à temps ? (1 
joueur). 


Mettez au point vos créations graphiques, 
sans papier ni Crayon. 


Si vous ne savez pas quoi mettre dans votre 
vitrine. 


Il vous faudra beaucoup de chance pour 
réussir. 


Soyez très observateur, et vous réussirez (2 
joueurs). 


Pas si facile de descendre un appareil qui 
bouge tout le temps. 


Améliorez vos jeux de dés en incorporant 
ce programme. 


Une mission bien périlleuse (un seul 
joueur). 


Un jeu de lettres pour 2 joueurs, où il faut 
de bons réflexes. 


Un jeu de réflexion utilisant des chiffres (2 
joueurs). 


Jeu de réflexe pour 1 joueur, très visuel. 
Un classique des jeux vidéos (1 joueur). 
Un peu farfelu, mais très visuel (1 joueur). 
Etes-vous vraiment sûr de vos réflexes ? 


Pour vous éviter de sécher trop longtemps 
sur “Nicomaque”. 


Il vous faudra pas mal de réflexion, et 
beaucoup de chance. 


Apprenez à taper à la machine en vous 
amusant. 


Beaucoup de hasard, mais très spectacu- 
laire. 


Un programme de simulation très réaliste. 
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Les techniques 
d’animation 
élémentaire 
Les caractères 
graphiques 


SAISIE AU VOL D'UN CARACTERE FRAPPE AU CLAVIER : KEY$ 


Le principe d’un jeu graphique, en animation, est de laisser le jeu se dé- 
rouler tout seul, d’une certaine manière, pendant un certain temps, tant 
qu'aucune intervention n’a été faite par le joueur. 

Il faut donc disposer de la possibilité d’observer s’il y a eu ou non inter- 
vention du joueur, sans pour cela interrompre le déroulement du pro- 
gramme. 

Dans le Basic de l’'ORIC-ATMOS, cette propriété est offerte, par la fonc- 
tion KEY$ qui effectue une structation des touches du clavier et enregistre 
le nom de la dernière touche frappée. 

On pourra utiliser KEY$ de deux façons : 

® soit dans une boucle (réalisation d’un mouvement). On saisit KEYÉ et 
on le teste pour une éventuelle sortie de la boucle. 

e soit dans une attente : tant que KEY$ est vide (on n’a rien frappé) on 
attend, et l’on sort dès qu’une touche a été frappée ; on peut aussi, pour 
cette fonction d’attente, utiliser GETAf. 

Il sera quelquefois nécessaire de taper plusieurs fois la touche pour qu’elle 
soit prise en compte. 


DEPLACEMENTS D’OBJETS DE BAS EN HAUT SUR L'ECRAN : 
SCROLL 














Il est difficile, si l’on travaille en Basic, de gérer le déplacement simultané 
de plusieurs objets sur l’écran (sinon on obtient vite une animation sac- 
cadée, à cause d’un temps de déplacement prohibitif). 

L’ORIC-ATMOS réalise automatiquement un “Scrolling” (c’est-à-dire 
un déplacement de l’ensemble de l’image) vers le haut, lorsque l’on écrit 
sur la dernière ligne en bas de l’écran. 


Cette propriété a été mise à profit dans plusieurs jeux : cela permet en 
effet, de déplacer d’une ligne vers le haut les divers objets (textes ou gra- 
phiques) présents sur l’écran à un moment donné. La ligne du haut est 
bien évidemment perdue. 

Si un objet doit rester immobile sur l’écran, il sera nécessaire de l’effacer 
dans sa nouvelle position, et de le replacer à son emplacement initial. 


LES CARACTERES GRAPHIQUES DE L’ORIC-ATMOS 





L’ORIC-ATMOS dispose d’origine d’un jeu de caractères graphiques, de 
type TELETEL, accessibles directement en mode LORES$ 1, mais dispo- 
nibles en mode TEXT, dans une instruction PRINT, en les faisant précé- 
der d’un CHR (9). 

Cette possibilité est utilisée pour améliorer l’aspect graphique de plusieurs 
programmes. 
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Tirage de dés 





REFERENCES : 

Difficulté de programmation : aucune. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : aucune. 


LE JEU : 

Le programme proposé ne réalise pas un jeu en lui-même, mais pourra 
être utilisé en sous-programme pour de nombreux jeux. 

Il offre simplement la possibilité de lancer de 1 à 9 dés, par simple pression 


d’une touche. Les dés sont ensuite affichés avec un graphisme très simpli- 
fié. 


LE PROGRAMME : 

La ligne 40 saisit le caractère frappé au clavier et la ligne 80 le transforme 
en nombre (si ce n’est pas possible, le programme refuse l'entrée). 

Une variable D non dimensionnée reçoit la valeur indiquée par chaque dé, 
(ligne 190). 

Une boucle I en ligne 99 est utilisée pour dessiner un fond, et une autre 
boucle [ (90-140) sert au tirage (tirage en ligne 190 et impression en ligne 
129). 

La ligne 170 offre la possibilité de refaire un tirage ; elle n’est pas indis- 
pensable. 


POUR JOUER : 

On lance le programme par l’ordre RUN et on obtient l’affichage NOM- 
BRE DE DES A LANCER auquel on répond en frappant un chiffre. 

Le résultat est alors automatiquement affiché ; il suffit de presser une 
touche quelconque pour recommencer le programme. 

Pour arrêter, il est nécessaire de taper F. 


EXTENSIONS POSSIBLES : 
On pourra, bien sûr, utiliser le canevas fourni par ce programme pour la 
réalisation de tout jeu se servant de dés (421, YAM'S, CRAPS, etc.). 


19 REM TIRAGE DE LES 

24 CLS:PAPER 6:INE d'ES=CHRSE 27 40 ln 

34 PRINTRZ,2; "NOMBRE DE DES 4 LANCER :": 

44 GET A$ 

SA FOR 1=1 TO 4:PLOTA, 747, CHR 18 1: PLOTI PT, CHRGE GUHERT TI 
64 IF A$<"1" OR A$>"a" THEN 34 

F4 PRINT 4% 

24 H=VALCAS 

30 FOR I=1 TO H 

194 Dé TI = IHTE BHO 1 MHEXT 

114 FOR Ji TO Z 

124 PRINTOA4#HI-Z, 6401366: RIGHTS STREE DE T 11,11 
134 MEXT J 

144 HEAT I 

159 PIHG:GET A$ 

164 IF A$="F" THEH EHD 

ira GOTO ZA 


NOMBRE DE DES 4 LANCER :5 
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Jeu de loto 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : hasard (plusieurs joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

il s’agit de réaliser un tirage complet de loto, c’est-à-dire d’obtenir 6 nu- 
méros, compris entre 1 et 49, plus un numéro complémentaire, tous dif- 
férents, qui pourraient être, par exemple, utilisés pour remplir votre 
prochaine grille de loto. 


LE PROGRAMME : 

On utilisera un tableau N(7), dimensionné en ligne 49, pour enregistrer 
les résultats. 

Le tirage des nombres est effectué dans une boucle I (69-129), une 
deuxième boucle J (99-119) étant utilisée pour contrôler qu’il n’y ait pas 
deux tirages identiques. 

Le tirage (ou le retirage) est effectué en ligne 70. 

La boucle I (169-199) affiche le résultat, et les lignes 209 à 229 affichent 
le numéro complémentaire. 

Les lignes 239 et 249 s'occupent du cas où l’on voudrait refaire une autre 
partie. 


POUR JOUER : 

Il suffit de taper RUN pour lancer le programme et obtenir l'affichage d’un 
premier loto. 

La question VOULEZ-VOUS UN AUTRE TIRAGE (O/N) s’affiche en bas 


de l’écran ; on répondra O si l’on désire continuer. 


EXTENSIONS POSSIBLES : 

On peut imaginer un programme qui pourrait tenir compte, soit de ses 
propres résultats, soit de résultats entrés par un joueur, pour améliorer le 
tirage, en tenant compte des probabilités de sortir un numéro donné. 

On peut aussi envisager un programme qui réaliserait des cartons pour le 
jeu de loto plus usuel, tel qu’il est encore couramment pratiqué dans le 
midi de la France. 


PF 1 1 
ER 


pa pe pe A O0 4 Un CA La LG PU 


Lt Po ee D OS © M 


ee pi 
= 
SSD 


FEM JEU DE LOTO 

PAPER G:IHE € 

Dh=CHRSE ZE 1 ESeCS+ NI" 

CIM HO 

CLE 

FOR Ii TO 

HET Ge THTE END 1 144941 

IF I=1 THEH 12 

FOR Ji TO I-1 
IF MOT ieHé li THEM FH 

MEXT I 

MEXT I 

PRINTRE, 330$; "LU: CTIRAGE CU LOTO" 
PRIHTRES, à ; D; ML Men “ 
FLOT1,13,3%:PLOTI1.14,5 

FOR Isi TO € 
PRIHTRE#IT-4,15:E6;: MIT 
PRIHTBEXI-4, 14: E&: MI 

HEXT IT 
A$="HUMERO COMPLEMENTAIRE : Æ+STR&E HE 10 
PLOT1.1F.1:PLOT1.18.1 
PRINTRZ,17:E6: A$: PRINTESZ, 16:E%: A$ 
PIHG:PRIHT:PRIHT'YOULEZ-VOUS UH AUTRE TIRAGE <O<H5" 


A GET AS:IF A$="O"THEN 54 


TIFAGE OU LOTO 


1 3 à 6 à 


NUMERQ COMPLEMENTAIRE : 15 


VOULEZ-UQUS UN AUTRE TIRAGE CÛ-H 
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La bombe 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

Vous êtes sensé trouver, à l’aide d’un détecteur spécialisé, un colis radioac- 
tif piégé disposé par un voyageur mal intentionné, dans une chambre 
d'hôtel. Seul problème, mais de taille : l’hôtel comporte un million de 
chambres (100+100*100). 

Votre détecteur affiche, en permanence, un signal qui vous renseigne sur 
la proximité de la bombe. et le temps qui vous reste est affiché en perma- 
nence, décompté de 19 en 19. 

Pourrez-vous découvrir la bombe avant l’ explosion ? 


LE PROGRAMME : 

Une variable numérique R, non dimensionnée, contient les trois coordon- 
nées définissant la position du joueur. 

La position de la chambre contenant le colis piégé est définie par un tirage 
aléatoire de 3 variables A, B, C, en ligne 59. 

La boucle I (79-119) dessine le détecteur. 

Le signal de proximité est calculé en lignes 129-139 et la ligne 149 permet 
l'affichage des coordonnées de la chambre à découvrir, dans le cas où l’on 
a perdu. 

La ligne 159 permet l'affichage, à la fois du signal et du temps restant à 
courir. 

La ligne 169 réalise le décompte du temps. 

La ligne 179 contrôle si l’on a trouvé ou non. 

La boucle I (219-259) permet d’entrer les nouvelles coordonnées, en uti- 
lisant le sous-programme placé aux lignes 300 à 349. 


POUR JOUER : 

Après le lancement du programme par RUN, le signal et le temps (en 
principe 200) sont affichés. 

Le joueur est alors en position x=@, y=@, z=0, et on devra introduire 
successivement les trois coordonnées x, y, z de la chambre à explorer. 

On fera, par exemple, 13 puis RETURN, 45 puis RETURN, etc. 

Le nouveau signal est alors’ affiché, et le temps est décrémenté de 19. 

On continuera ainsi, soit jusqu’au bon résultat (arrêt du jeu et fin de 
programme), soit jusqu’à l'apparition de 3 nombres (x,y,z) sans sortie du 
programme, ce qui signifie alors que l’on a perdu. 

On peut taper F en entrée si l’on veut arrêter avant la fin. 


EXTENSIONS POSSIBLES : 

Il sera sans doute indispensable d'améliorer le graphisme, d’ajouter une 
explosion (sonore et visuelle) pour symboliser l'éclatement de la bombe, 
d’afficher symboliquement la position dans l'hôtel, etc. 


19 
29 


230 


264 
344 
314 
3e4 
334 
34 


REM LA BOMBE 
PAPER 6:INK 4 :D&=CHR$C 27 1: E$=CHR&C 126 2 
FOR I=1 TO S:PLOTI,3+I,1:MEXT TI 
L=199:T=248 
A=INTÉ RNDC 1 DEL 1: BE INTE RHDIE 1 TÉL 2: Ce TMTE RNDE 1 #L 5 
CLS 
FOR I=4 TO 17 
PRINTRI+EZ,4:E# 
PRIHTRI+2,5;ES 

PRIHTRI+Z,6:E% 

NEXT I 

SeABSC € A/L+B4CAL CRE TL ALAHRE SRE TEL 3 
SR=LEFTS$E STRESS 5, 7 1 SeVALE SE 

IF T=4 THEN PRIMNT'PERDOU , 

LA SOLUTION "ii" "Bi" "iC:EXPLODE 
PRINTR4,5;:5S:PRIMTRI4, ST 

LAP : ZAP: ZAP:T=T-INTC SRE L 0 

IF S=<4 THEN PRINTRZ, 21; "BRAVO": PIHG: END 
PRINTEZ,19;" - x :" 

PRINT@Z,12;" - % :" 

PRIHTRZ,14;" - Z :" 

FOR I=1 TO 3 

F&= RL 

GOSUB 394 

RC Ie VALERS 

MEXT I 

GOTO 74 

PRINTES, 241I+8;"7"3R&; : PRINT" ; 

GET A$:IF A$&="F" THEN EHD 

IF ASCCA$=13 THEN SHOOT:HAIT 24:RETURM 
R$=R$+A$ 

GOTO 344 
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Ardoise magique 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : dessin. : 
Difficulté du jeu : facile. 


LE JEU : 

Comme le titre peut sembler l'indiquer, il s’agit, tout simplement d'utiliser 
l'écran du téléviseur comme une ardoise, en manipulant un point sur l’écran 
suivant 8 directions, à l’aide des touches de 1 à 8, suivant la convention : 





On dispose aussi de la possibilité de déplacer le point sur l’écran sans 
laisser de trace en appuyant sur la touche Q (ce qui permet l'effacement 
partiel) et de laisser de nouveau une trace en réappuyant sur @. 

On peut choisir la couleur du point en appuyant sur une touche de A à H ; 
et il est possible d’effacer tout l’écran en appuyant sur P. 


LE PROGRAMME : 

La ligne 39 contient le choix des possibilités de couleur. 

La ligne 59 imprime le point élémentaire. 

Les lignes 69 à 99 contrôlent les entrées. 

La ligne 139 appelle l’un des quatre sous-programmes effectuant le dé- 
placement. 

Le ligne 149 vérifie que l’on ne sort pas des limites de l’écran. 

La ligne 169 effectue l’effacement s’il y a lieu. 

Le sous-programme 499-419 choisit la couleur ; 390-319 réalise ou non 
l'effacement. 


POUR JOUER : 

On lance le programme par RUN ; un point apparaît vers le milieu de 
l'écran. On devra taper 9 pour le déplacer sans afficher. 

Si on frappe une lettre de A à H, la couleur du point change. 

La touche P efface tout, et l’on recommence. 

On peut sortir à tout moment, en tapant F. 


EXTENSIONS POSSIBLES : 

On pourra, bien sûr, envisager d’écrire un programme identique en utili- 
sant des tracés de segments, prévoir un sous-programme qui permette la 
sauvegarde du dessin réalisé pour une utilisation ultérieure, etc. 


FEN ARCOISE MAGIQUE 
HIFES: PAPER d:'THE 
Ce "Ai sd4iEe rs" 
#elgE: vel 
CURSET LINE TC 
GET A$:IF AGe"EU THEH EH 
IF A$>="4" AND A$i="H" THEH GOSUE di 
IF A$="@" THEN GOSUE 398 
IF AG="PU THEN ZE 
Fat MALE AR EE 
Az: ET 
Day ALC AR Te RC F= 14 






GJM BOF 


Fo ee D DS SOS D DO 
mn 


be be ré be if 
RER ELA EX | 


3E F1, AAA 


D 


144 
158 
164 
174 
384 & 
314 RETUFH 

da CaVALEMIDSE CR, MSC AE Éd, À 
418 FRETLEH 

1044 a+F 

244 Hzx+F 

2414 FETLEH 

2484 GOSUE AA 

4484 = T-F 

4914 RETLUFH 

SAGQ “ef: "EE 

5414 RETLEH 


IEC 
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Affichage publicitaire 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : affichage publicitaire. 
Difficulté du jeu : aucune. 


LE JEU : 

Un texte quelconque devra être introduit en début de programme. Il pour- 
ra être relativement long (1 ou 2 lignes) ; on choisira ensuite le sens et la 
vitesse de défilement, à la suite de quoi le texte va apparaître (une seule 
ligne à la fois) et commencera à défiler, à la vitesse choisie, et dans le sens 
choisi. 


LE PROGRAMME : 

Le texte sera introduit lettre par lettre aux lignes 69 à 90. 

L'affichage sera tronqué à 18 caractères au plus, grâce à la ligne 150. 

Le défilement vers la gauche est préparé à la ligne 189, et le défilement 
vers la droite à la ligne 190. 

Le texte sera affiché aux lignes 169 et 179, et la durée de l’affichage 
(vitesse de défilement) est choisie par la ligne 200. 

La ligne 220 permettra de changer, si besoin est, les conditions du défile- 
ment. 


POUR JOUER : 

On lancera le programme par RUN, et à l’affichage de la question EN- 
TREZ VOTRE TEXTE, on introduira le texte à faire défiler, suivi de 
RETURN. 

On obtient ensuite l’affichage DEFILEMENT A DROITE (D) OÙ A 
GAUCHE (G) auquel on répondra en tapant, soit D, soit G, suivi de RE- 
TURN. 

Puis à la question VITESSE, on répondra en introduisant un petit nombre 
pour une vitesse rapide, et un grand nombre pour une vitesse lente (par 
exemple, de 9 à 49 ou plus). 

Le texte commencera à défiler dès que l’on aura frappé RETURN. 

Si l’on désire changer les conditions du défilement, 1l suffit d'appuyer sur 
la touche O pour retrouver les questions SENS et VITESSE. On tapera 
CTRL et C pour interrompre le programme. 


EXTENSIONS POSSIBLES : 
On pourra introduire de la couleur, réaliser un affichage ondulant, faire 
remonter les lignes sur l’écran, etc. 


9 
149 


119 
124 
139 
149 
154 
164 
174 
189 
198 
248 
219 
228 
230 
244 


REM AFFICHAGE PUBLICITAIRE 
PAPER 6:IHK 4:CLS 
B$="":D$=CHRS( 27 3: ES=<D$+".J" 
PRINT'ENTREZ VOTRE TEXTE" :PIHG 
PRINT:PRIHT CHR&C 175 


GET A$ 
IF ASCCABI=13 THEN 166 

B$=B$+A% 

PRINT AG; :G0TO 69 
PRINT:PRINT'DEFILEMENT A DROITE C3 
OU À GAUCHE €G2": INPUT 5$ 
PRINT 
INPUT"YITESSE (DE 9 À 53 :"i 
y=51-V 


CLS : T<LEH( B$ 

AS=MIDSC ES, 1,182 

PRIHTRZ,13:E$;" "+484" " 

PRINTEZ,14;:E$;" "+A8+" " 

IF LEFTSCSS,12="C" THEN BS=RIGHTSCES, T-1+LEFTSC ES, 102 


IF LEFTSCS$,12="D" THEN BS=RIGHTSCBS, 1 +LEFTSCES, T-1 : 
FOR Je TO 144% 

C$S=KEYS$ 

IF C$="9" THEN 144 

MEXT J 

GOTO 154 


ENTREZ UOTRE TEXTE 


ETAIT HE Fü 


IL _ 115... 
GÉFILEMENT 4 GRGIÎTE CO OÙ & GAUCHE « 


+ ON 
VITESSE CODE à à SG :7 29 
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Evasion 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : solitaire. 
Difficulté du jeu : facile. 


LE JEU : 

Votre seul problème : réussir à traverser l’écran, sans que l'ORIC-ATMOS 
vous ait auparavant touché par l’un des nombreux obus explosifs qu'il va 
tirer sur vous. 

Vous pouvez vous déplacer dans 4 directions (à l’aide des 4 flèches), et 
vous devez réussir à sortir du terrain par le bord droit, sans, bien sûr, avoir 
été touché une seule fois. 


LE PROGRAMME : 

La ligne 39 définit la position de départ du joueur. 

La ligne 49 choisit la coordonnée horizontale de la case où ORIC va tirer 
(liée à votre position), et la ligne 59 choisit la coordonnée verticale (arbi- 
traire) de cette case. 

Le déplacement du joueur est contrôlé par les lignes 129 et 139 ; sa tra- 
Jectoire est tracée par la ligne 190, et sa position actuelle (sur l’écran, un 
#) est imprimée par la ligne 149. 

La ligne 159 regarde s’il est touché ou non. 

La ligne 169 effectue le contrôle de fin de partie. 


POUR JOUER : 

On commence l’exécution du programme par RUN. 

Un premier tir a lieu, et ce n’est qu'après que le joueur apparaît, représenté 
par un #. 

Les 4 touches de direction (+ | , ? —) servent à déplacer le joueur. 

S'il est touché, on obtient un bruit d’explosion et la partie s’arrête. 

S'il réussit à sortir par la droite de l’écran sans être touché, on obtient une 
série d’applaudissements, et la partie est également terminée. 

On peut terminer à tout moment en tapant CTRL et C ; ne pas oublier de 


faire TEXT. 
EXTENSIONS POSSIBLES : 


La couleur et un graphisme plus soigné amélioreront considérablement 
l'attrait du jeu. On pourra aussi rendre le tir des bombes, plus aléatoire, 
introduire des obstacles à contourner, ajouter des contrôles, faire partici- 
per plusieurs joueurs, etc. 
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Chapeaux 


REFERENCES : 

Difficulté de programmation : assez facile. 
Catégorie de jeu : jeu de réflexe, pour deux joueurs. 
Difficulté du jeu : facile. 


LE JEU : 

L'idée en est très simple : deux personnages se déplacent l’un vers l’autre 
sur l’écran et se croisent. Au moment où ils se croisent, il est possible qu’ils 
échangent leurs chapeaux. Il s’agit d’être le premier à dire si oui ou non il 
y a eu échange de chapeaux lors du croisement. 


LE PROGRAMME : 

Les lignes 39 et 49 contiennent le dessin des deux chapeaux (dans deux : 
variables alphanumériques B$ et C$). 

La ligne 59 contient, dans une autre variable A$, les symboles qui per- 
mettront de dessiner les personnages. 

La ligne 70 permet, s’il y a lieu, l’échange des chapeaux. 

La variable T de la ligne 89 sert à repérer s’il y a eu échange ou non. 

Le dessin des deux personnages est réalisé par une boucle 1 (129-159), et 
leur déplacement est réalisé par la ligne 160. 

Le test, permettant ou non le changement des couvre-chefs, est effectué 
en ligne 189. 

Les lignes 299 à 259 déterminent si le premier joueur ayant appuyé sur 
une touche a gagné ou perdu. 


POUR JOUER : 

Lancer le programme par RUN. 

Les personnages commencent immédiatement à se déplacer l’un vers 
l’autre. 

Le joueur de gauche dispose des touches 1 et 2 et celui de droite, des 
touches 9 et Q. 

S'il y a eu changement de chapeau, les touches à appuyer seront 1 (à 
gauche) et Ÿ (à droite). 

S'il n’y a pas eu de changement, il faudra, pour gagner, être le premier à 
appuyer sur 2 (à gauche) et sur 9 (à droite). 

L'affichage indiquera alors BRAVO GAUCHE ou BRAVO DROITE, ou, 
encore PERDU GAUCHE ou PERDU DROITE. 


EXTENSIONS POSSIBLES : 

Il sera possible de prévoir un affichage couleur, avec une animation des 
personnages. | 

On pourra aussi compliquer le jeu à plaisir avec plusieurs objets échangés 
de façon aléatoire (il faudrait alors en trouver la liste complète). 


14 REM CHAPEAUX 

24 D$=CHR$&C 27 2:E$=06+"T": PRINT CHRSC 175 

34 B$=E$+"616" 

49 C$=E$+"I6]" 

59 AS="NSe JO J ____ K_?7J 5° 1° 

69 K=D:Y=34:T=1 

ra GéeCg:CS=2S:E$=CS 

89 T=ABSCT-1) 

99 PAPER 7:IHK g:CLS 

198 PRINTRX+3,9;CS% 

119 PRIMNTEY+3,0;ES$ 

124 FOR I=1 TO 8 

139 PRINTEX+2, 1:D$; "A": E&+MIDSC AS. 3#I-2,3) 

149 PRIMNTRY+2, 1:06; "B";ES+MIDSCAS, 3#1-2,3) 

159 MEXT I 

169 H=x+1:Y="-1 

179 PING:HAIT 129 

184 IF x=Y AND RNDC123<9.5 THEM 79 

194 R$=KEYS:IF R$="" THEN 99 

244 PLOTA,16,19:PLOTI1,16,4 

219 IF x<=Y THEN 239 

228 IF CRS="1"ANDTe 1 )ORCRS="2"ANDT =D } 
THEHPRIHTRZ, 16: "BRAVO DROIT": ZAP : END 

234 IF CRS="D"ANDTæ1 )0RCRS=" 9" ANDT=9 ) 
THEHPRIHTEZ, 16; "BRAVO GAUCHE" : ZAP : END 

244 IF R$="2" OR RS="1" THEN PRINTR2:16: 
"PERDU GAUCHE" : EXPLODE 

254 IF R$="9" OR R#S="2" THEN PRINTR2,16: 
"PERCU CROIT":EXPLODE 


PEROU DROIT 
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Combat aérien 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexe (1 joueur). 
Difficulté du jeu : difficile. 


LE JEU : 

Au centre de l’écran, se trouve le viseur de votre appareil, et l’avion ennemi 
se déplace devant vous, d’une façon qui pourra vous sembler au début 
incohérente. 

Vous pouvez vous déplacer dans toutes les directions, grâce aux flèches de 
mouvement, et vous allez essayer d'amener l’appareil ennemi au centre de 
votre viseur. 

Vous tirez sur lui en frappant 9, et vous voyez vos projectiles qui conver- 
gent sur lui. Mais, il continue à se déplacer, même pendant votre tir, et il 
n'est pas du tout évident que vous réussirez à l'avoir. 

La partie continuera à se dérouler jusqu’à ce que vous l’ayez touché (af- 
fichage de GAGNE) ou qu'il soit sorti de votre champ de vision. 


LE PROGRAMME : 

La ligne 79 dessine l’appareil ennemi dont le déplacement aléatoire sera 
réalisé par les lignes 99 et 100. 

Les lignes 129 et 139 vous permettent le pilotage de votre appareil. 

La ligne 179 dessine le viseur de votre appareil. 

Le sous-programme, gérant le tir, va de la ligne 200 à la ligne 259 et le 
test de fin de partie est effectué en ligne 240. 

La ligne 189 regarde si vous avez tiré ou non. 


POUR JOUER : 

Dès que le programme a été lancé par l’ordre RUN, vous devez manœuvrer 
pour essayer de faire en sorte que l’appareil ennemi soit cadré dans votre 
viseur. 

Pour cela, vous disposez des flèches de déplacement (touche T, |, —, 
<—) et vous pouvez tirer à tout moment en pressant la touche O. 
L'appareil ennemi peut continuer à se déplacer de manière aléatoire, même 
lorsque vous avez tiré. 

La partie se terminera avec l’affichage de GAGNE, si vous touchez l’avion 
ennemi. 

On peut aussi arrêter à tout moment en frappant CTRL et C. 


EXTENSIONS POSSIBLES : 

Il sera assez facile de faire un affichage au graphisme plus soigné, utilisant 
la couleur. On pourrait envisager de stabiliser la position de l’avion ennemi 
pendant le tir (il suffit de modifier la ligne 189). 

On peut aussi introduire plusieurs avions, compter les points ou le temps, 

tenir compte de sa propre réserve de carburant, etc. 


19 REM COMEAT AERIEH 
20 DS=CHRSC 27 2: ES=D8+" A": FeDS+"" 
20 PAPER 4: INK 7:PRINT CHPRSC17: 
48 CLS 
59 A=S:B=15 
69 N=21 
79 PRINTRE, A; CHREC 255 4" CHRBC 255 ) 
80 Ux=A:V=E 
96 A=A+Z2XINTE RNDC 1 542 3-1 
194 B=B+2KINTCRHDE 1 2#2 21 
19 AS=KEYS 
129 B=B-2#C AS=CHRSC 9 3 4+2K€ ABS CHRIS 8 1) 
138 AsA-24c AG=CHRSC 10) +2#C AS=CHREC 11 32 
149 IF E<2 OR B>27 THEN EABSCE-27 à 
150 IF A€3 OR A>22 THEN A=ABSCA-22: 
168 PRINTEY,U;" 
178 PRINTR17,9:E8: "4 "3: FS:PRINTGIT 10:ES:" OF 
PRINTR17,115E$5 "4 #";FS 
189 IF A$="@" OR H<21 THEH GOSUE 2G@ 
193 GOTO 78 | 
209 PRINTR29-N, M; "1: PRINTENES, He 
219 PRINTR29-H,N;" ":PRINTEH#S Hi" 
224 H=H-1 : SHOOT 
239 IF M>9 THEH RETURH 
249 1FCA=90RA=1Q0RA=1 1 )ANDC Ex 1 80RE=1 30RB=20 à 
THENPRINT "GAGNE" : EXPLOGE : END 
259 GOTO 64 
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Dessin de dés 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

Le programme proposé est surtout intéressant par son côté graphique 
puisqu'il permet de représenter, de façon très convenable, de 1 à 3 dés sur 
l'écran, en utilisant une technique de dessin un peu particulière. 

Chaque réponse à la question NOMBRE DE DES provoque immédiate- 
ment un nouveau lancer du nombre de dés indiqué. 


LE PROGRAMME : 

La ligne 59 permet de contrôler s’il y a eu ou non action sur une touche 
de 1 à 3. 

Les lignes 99 et 199 initialisent les deux variables de dessin des dés. 

La boucle I (119-290) et les lignes 129 et 139 dessinent le cadre du dé. 
La ligne 149 réalise le tirage, et la boucle J (150-199) dessine les points 
en relation avec le tirage réalisé (en appelant les variables A$ et B$). 


POUR JOUER : 

On lance le programme par l’ordre RUN, et, à la question NOMBRE DE 
DES, on répond en frappant une touche de 1 à 3. Les dés demandés sont 
alors représentés, et la question NOMBRE DE DES est de nouveau posée. 
Il suffira de taper F pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On pourra conserver la partie dessin utilisée dans ce programme pour 
réaliser toutes sortes de jeux de dés, avec une représentation graphique de 
qualité convenable et facile à modifier si besoin était. 


REM DESSIH DE DES 
Dh=CHRSC 27 3: E6=DS$4+"T" PRINT CHARGE 17 

PAPER 3:IHK 4:CLS£ 

PRINTR2,15:; "NOMBRE DE CES" 

GET A$:IF A$="F" THEN EHD 

CLS:FOR I=1 TO S:PLOTA, I, 17:PLOTI. I. P'MEXT I 
M=VALE AGO: IF M1 OR H:3 THEH 34 


FS=CHRSC 255 ) 
fA$=" " +F$+" ++!" " +F$+F$+" n4+4F 
Eg="121314224515525555" 

FOR I=1 TO H 

PRINTRIBXI-8,2;E8+"7///////0" 
PRINTRIGHI-8, 8: ES+" Ts nAn 

k= HTC RNDÉ 1 2#6+1 2 

FOR J=i TO 5 
PRINTRIGXI-8, J+2:E8+"0": PRINTRIGKI, J+2:E8+"J" 

IF J<=3 THEN S=5#YALCMIDSCES, SkCH-1 341, 1 5 3-4 

IF Ke THEN PRINTRIAXI-E, 2441 :08; "H":MIDSCAS,S,5 5 
MEXT 

NEXT I 

PING:GOTO 48 


HOMERE DE DES 
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Le jeu du missile 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : contre l’'ORIC-ATMOS. 


Difficulté du jeu : moyenne. 


LE JEU : 

L'ORIC-ATMOS est en alerte : vous êtes aux commandes d’un avion chargé 
d’une mission d’espionnage sur son territoire ; votre but est de survoler 
une base ennemie (représenté par un H agrandi), et de revenir sain et sauf 
sur votre base ; mais, dès que l’ORIC-ATMOS vous aura repéré, 1l va 
envoyer à votre poursuite un missile très perfectionné qui n’aura de cesse 
de vous détruire. 

Votre avion peut se déplacer dans toutes les directions, grâce aux touches 
de 1 à 8 ; réussirez-vous à remplir votre mission ? 


LE PROGRAMME : 

La ligne 59 dessine la base ennemie à survoler (sous forme d’un H agrandi). 
La ligne 69 dessine votre base de départ. 

Les lignes 89 et 199 choisissent l'instant de départ du missile. 

La ligne 129 dessine votre avion. 

Les lignes 149 et 159 définissent son mouvement suivant 8 directions, en 
utilisant les sous-programmes en lignes 1900, 2000, 3000 et 4000. 

La ligne 169 assure le départ du missile qui est dessiné par la ligne 179 et 
dont le déplacement est géré par les lignes 189 et 190. 

Les lignes 299 à 239 contrôlent la fin de partie. 


POUR JOUER : 

Lancer le programme par RUN. 

Le terrain de jeu s’affiche et vous pouvez déplacer votre appareil en utili- 
sant les touches de 1 à 8, avec la convention suivante : 





Vous devez lui faire contourner le territoire ennemi (si vous, ou le missile, 

touchez ce territoire, une deuxième partie commence). 

Si le missile vous détruit, vous obtenez un message TOUCHE, et la partie 
, A 

s'arrête. 


Taper CTRL et C pour arrêter la partie. 


EXTENSIONS POSSIBLES : 

Il sera sans doute nécessaire de rajouter divers contrôles dans le pro- 
gramme (l'avion a-t-il survolé la base ennemie, est-il revenu à sa propre 
base…). 

On peut aussi prévoir divers niveaux de jeu en faisant, par exemple, varier 
la vitesse du missile, prévoir l’utilisation de leurres par l’avion, l'explosion 
du missile au bout d’un certain temps, etc. 


REM LE JEU OÙ MISSILE 

D$=CHRS$C 27 3: EG$=D$+".J" : F$=CHRSE 255 à 
PAPER 3:1HK d:PRINT CHR&C 172 
CLS : M=9 : PLOT1,19,2:PLOT1I.29,2 
PRINTR16,5:E8; "H":PRINTRIE,6:E$;"H" 
PRINTEZ,19:E$:F$;F#:PRINTRZ,29;:ES$;:F#%;F#% 
U=15:#4=18 
Se INT RNDC 1 3#U+6 à 
Y=2 

9 S=5-1 

4 V=33 

A PRINTRY, x; D$:"An;nr" 

9 A$=KEYS:IF A$="" THEN 139 

Q Fe-2#(VALCAS 2€35 2-1 

G ON VALCASI+2#CF-13 GOSUB 1009,2990,2900, 4908 

9 IF 5<>9 THEN 199 

D PRINT@Y,UJ;D$; "Fit 

à U=1J-SGN(U-X 2 


199 Vaw-SCGHC V2 
264 IF U=x AND VeY THEN PRIHT'TOLUCHE,,. ,":EXPLODE :HAIT 59:END 
219 IF CU=S0RX=S 2ANDCV=160RVS170RY=160RY=17 THEN 49 


QG IF X<=5 AND Y2>=16 THEN Mal 
9 1F Mal AND 218 AND Y<=4 
THEN PRINT"MISSION ACCOMPLIE" :ZAP :2AP :ZAP : END 


244 GOTO 144 
1998 xX=%x-F 
2099 Y='7+F 


19 RETURN 


3008 GOSUE 28684 


4008 xX=x+F 


14 RETURN 


TOUCHE . .. 
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Le singe 


REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : deux joueurs. 


Difficulté du jeu : difficile. 
LE JEU : 


Il s'inspire de l’idée déjà ancienne du singe qui, frappant au hasard sur 
pire ae idee de] ge q rappant au 

une machine à écrire, a des chances non nulles de finir par écrire un texte 

signifiant. 

Le rôle du singe est, ici, tenu par l’'ORIC-ATMOS qui va afficher des 

ng Ê P | q 

groupes de 3 à 6 lettres pendant un temps relativement court. 

Si l’un des joueurs estime qu’il peut réussir à faire un mot avec les lettres 
AE réen en , 

proposées, 1l doit taper rapidement sur sa touche de jeu (1 ou @). 

Le mot devra alors être accepté ou refusé par l’adversaire qui répondra 

JUSTE ou FAUX. 


Chaque mot juste rapporte 1 point, chaque mot faux enlève 1 point. 


LE PROGRAMME : 

La ligne 49 contient une liste V$ des voyelles courantes, et une liste C$ 
des consonnes courantes. 

Il sera possible de modifier ces deux listes pour augmenter, par exemple, 
la fréquence d'apparition de certaines lettres (on pourra ainsi mettre deux 
E dans V$ ou deux R dans Cf, etc.). 

La ligne 59 définit la longueur du mot (en principe, de 3 à 6 lettres, mais 
on peut également modifier cette longueur). 

La boucle I (89-130) permet la confection d’un “mot” en prenant une 
lettre, soit dans l’alphabet complet, soit dans la liste C$ (ligne 190), soit 
dans la liste V$ (ligne 119). 

La ligne 159 temporise l’apparition du résultat. 

La ligne 170 gère la fin de partie, avec affichage du score. 

La ligne 189 regarde si l’un des joueurs a réagi. 

Enfin, les lignes 299 et 219 comptabilisent les points de chaque joueur. 


POUR JOUER : 

On lance le programme en tapant RUN. 

La première série de lettres est alors affichée sur l’écran. Le joueur de 
gauche devra taper 1 s’il voit qu’il peut réaliser un mot, celui de droite 
devra taper 0. 

Si rien n’a été frappé, une autre série de lettres sera affichée après peu de 
temps. 

Si l’un des joueurs a frappé 9 ou 1, la question (J)USTE ou (F)AUX est 
alors affichée. On répond J si le mot est correct, F si le mot est incorrect, 


suivi de RETURN. 


Les points sont alors calculés par ORIC, et la série de lettres suivante est 
alors affichée. 

Pour sortir du programme, il faudra taper P au lieu de Q ou 1 ; le score 
final est alors affiché. 


EXTENSIONS POSSIBLES : 
On pourra modifier la longueur des mots, la fréquence d’apparition des 
lettres, le décompte des points, la règle du jeu. etc. 


19 REM LE SINGE 

29 D$=CHR® 27 2: F$eD&+".J" 

34 PAPER 6:INK 4 

44 A=9:B=9:V@="AETOU" :C$="BCDGLMNPRETY" 

59 #=IMTÉ RNDC 1 34443) 

64 M$= un 

74 CLS:PLOT1,5,1:PLOTI,6,1 

84 FOR Izi TO # 

99 ES$=CHR$C INTÉ RND 1 2426+65 3 à 

198 IF RNDC129<G,.4 THEN ES=MIDSCCS, INTCLENC CS D#RMDIE 1 341 3, 1 5 

119 IF RNDC13<9.5 THEN ES=MIDS$( VS, INTCLENC VS Y#RNDE 1 341 3, 15 

124 M$=M$+E$ 

139 NEXT I 

149 PRINTEZ,5:F$:M$:PRIMTRZ,6:F$:M$:PING 

159 WAIT 24 

164 AS=KEYS 

17@ IF A&="P" THEN PRINT®Z,19; "SCORE DE À :":f5" ; 
SCORE DE B :";B:EXPLODE : END 

180 IF AS<>"9" AND AS<>"1" THEN 59 

199 PRINT :INPUT'CJOUSTE OÙ FAUX :"5RS& 

204 A=A-CR$S=".J" AND A$="9"3+CRS="F" AND A$="g" 5 

219 E=B-CR$=".J" AND A$="1"3)+CRS="F" AND A8="1" 53 

229 GOTO 34 


[TE 


SCORE QE 4 . @  ,; SCÛFE DE E . 
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Le jeu du 15 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

C’est un jeu pour deux joueurs, assez ancien, qui était autrefois pratiqué 
dans les foires. On dispose d’un tapis de jeu de 9 cases, et chacun mise à 
son tour un jeton de sa couleur, sur une case disponible. 

Le premier des deux joueurs qui, avec exactement 3 jetons, arrive à faire 
un total de 15, a gagné. 


LE PROGRAMME : 

Les lignes 50 à 89 dessinent le terrain de jeu, et les lignes 99 à 199 s’oc- 
cupent de la gestion du tour des joueurs (numéro 1 ou 2 pour chaque 
Joueur, et jeton O ou X correspondant). 

La ligne 119 attend le coup joué. 

La boucle I (129-140) vérifie la validité du coup. 

La ligne 159 teste la fin de partie, en cas de match nul, et la ligne 160 
refuse les coups non conformes (avec retour à la situation initiale, ligne 
90). 

Les lignes 179 et 189 s’occupent de l’affichage du coup, et la ligne 199 
l’enregistre dans une variable R$. La partie la plus intéressante du pro- 
gramme, qui pourrait servir à définir une stratégie machine, va de la ligne 
210 à la ligne 300 : on utilise 3 boucles emboîtées pour vérifier si l’un des 
joueurs a obtenu, avec 3 pions, un total de 15. Le changement de joueur 
s'effectue en ligne 310. 


POUR JOUER : 

Lancer le jeu en tapant RUN. 

Le terrain de jeu s’affiche, puis la question JOUEUR 1 : X, et le joueur, 
qui a choisi les X, devra donner le numéro de la case où il désire jouer ; si 
elle est libre, son coup y sera enregistré. 

On obtient, ensuite, l’affichage JOUEUR 2 : O et le deuxième joueur pro- 
cède de la même façon. Si l’un des joueurs gagne (total de 15 sur 3 coups), 
il obtient l'affichage BRAVO et la partie s’arrête. 

En cas de match nul, la machine affiche C’EST FINI. 

On fera une autre partie en tapant RUN. 


EXTENSIONS POSSIBLES : 

Le plus intéressant sera sans doute d’essayer de définir une stratégie ma- 
chine (en essayant d’éviter que la machine ne joue toujours le 5 lorsqu’elle 
doit commencer). 

On peut aussi, bien sûr, améliorer le graphisme et introduire des effets 
sonores pour les différents messages. 


REM LE JEU Di 15 

D$=CHRSC 27 1 :EG=D$+"T" 

F=g:R$="123456769" 

O$="":XGe"": PAPER 3:IMNK 4:CLS 

PRINTEZ, 1:E$; "PPPPPPPPPPPPPPPPPPPPPPPPPPPFPFPPPPFPE" 
PRINTR2,5:ES : HHMAMAMARMMMMMMANERMRARMRAM RARE! 
FOR I=@ TO 32 STEP 4:FOR Js2 TO d: 

PRINT@S+I,.15": IMIMEAT J'MEXT I 

FOR 1=1 TO G:PRINTOR4#I Gi I:MEXT I 
PLOTI.14,F+1:PRINTRZ, 14; "JOUEUR MiF4iit oi" 


194 IF F=1 THEN PRIHT"'O" ELSE PRINT "#" 

119 AS=KEYS:IFA$S<"1" OR A$>"9" THEN 119 

124 FOR I=1 TO LENCRS 2 

139 IF AS=MIDBCRE, 1,15 THEN GOSUE 1784 

149 MEXT I 

159 IF VALCRS)=Q THEN PRINTR2,29) "C'EST FINI :EXPLODE : END 
164 GOTO 94 

179 IF F=l THEN OS=<0$+A%:PRIHTR4#I, 3:08; "6"; "0" :DSé; "0" 
184 IF F=Q THEH KX$=#8+48: PRINTRA4XI, 3:08; "A"; "4": 06: "0" 
194 RS=LEFTSCRS, 1-1 3+"D"4+RICHTSCRE, LEMCRS2-T 

208 IF F=i THEN T$=0$ ELSE T$=#$ 

214 IF LENCT#2<3 THEN 319 

224 FOR I=1i TO 3 

234 IF ISLENCTS) THEN 314 

244 FOR Jel+1 TO LENCTS 5 

254 1F JSLENCTS) THEN 319 

268 FOR K=J+1 TO LEMCTS$) 

279 IF VALCMIDSCTS, I, 1 2 2+VALÉ MIDSC TS, .J, 13) 


+VALOMIDSCTS.K,1533=15 THEN 334 


284 NEXT K 

298 NEXT .J 

398 NEXT I 

319 FeABSCF-13:FING 

328 RETURN 

339 IF Fæi THEN PRINT @2,19:D8;"L"; "BRAVO , 


JOJEUR 0" :2AF :ZAP : ZAP : EHD 


349 PRINTEZ.18:D$;"L'; "BRAVO , JOUEUR X":ZAP:ZAP:ZAP : END 


ERAUOQ , JOUEUR * 
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Adresse 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexe (pour 1 joueur). 
Difficulté du jeu : difficile. 


LE JEU : 

Des chiffres, entre Q et 9, vont apparaître au hasard, en divers emplace- 
ments de l'écran. Ils restent affichés pendant un temps très court. Le 
joueur doit réussir à appuyer sur la touche numérique correspondante, au 
moment où le chiffre est affiché. 

Le chiffre tapé par le joueur sera alors affiché en grand format sur la 
gauche de l'écran ; et chaque réponse exacte rapporte 19 points. La durée 
de la partie est aléatoire et le score sera affiché en fin de partie. 


LE PROGRAMME : 

Les lignes 50 et 69 contiennent, dans deux variables alphanumériques C$ 
et B$, les références qui seront utilisées pour dessiner les chiffres en grand 
format. 

L'emplacement du chiffre tiré par lORIC-ATMOS est choisi aux lignes 70 
et 80, et le chiffre est tiré en ligne 90. 

La ligne 190 réalise l'impression, et la ligne 119 détermine la durée d’af- 
fichage. La ligne 130 définit la durée du jeu, et la fin de partie est traitée 
par la ligne 150. 

La boucle I (209-230) réalise le dessin grand format du chiffre frappé par 
le joueur. 

Le contrôle de l’exactitude du résultat est effectué par la ligne 240. 


POUR JOUER : 

Le programme sera lancé par RUN, puis un premier chiffre apparaît, après 
une courte pause, vers le milieu de l’écran. Le joueur devra réagir suffi- 
samment vite, tant qu'il reste à l’affichage, et le retaper. Le chiffre qu'il a 
tapé se dessinera alors en haut à gauche de l’écran, en grand format. 

Si le résultat est exact, le joueur marquera 19 points. 

Le temps de déroulement de la partie sera fonction des chiffres qui appa- 
raîtront à l’affichage. 

En fin de partie, le score sera affiché. Il sera possible de s’arrêter à tout 
moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut envisager de modifier le jeu pour faire participer plusieurs joueurs, 
en modifiant éventuellement l'affichage et en codant les touches du clavier 
mises à la disposition de chacun des joueurs. 

On pourra aussi enlever des points à chaque résultat faux, modifier les 
règles de calcul du score et la durée du jeu, etc. 


REM ADRESSE 
DS=CHRSC 27 ): ES=CHRSC 255 2: FBeD8+" "+064": CSeDS+"H" 
PAPER 6:INK 4:'PRINT CHRMC 175 
T=190:5=29:CLS 
CS=ES+E$+E8+E8+" "+ES+E8+" "+E$ 
B$="14441933331912113131441331213112141133331414114131" 
Ke INTC RNDC 1 2415 3 
Y= INT RDC 1 2415415 à 
NæINTE RMDC 1 34109 

PRINTRY,X%3H 

WAIT RHDC124129+84 

AS=<KEYS:IF AG<>"" THEN 199% 

T=T-H 

PRINTEY,Xx3" é 

IF T>=9 THEN 74 

CLS 

PRINT:PRINT'YOTRE SCORE EST DE ":5;" SUR 199" 
ZAP : ZAP : ZAP : END 

U=VAL( AG à 

FOR Ii TO 5 

A=3#VALEMIDSCBS. SÆUXTI , 1 33-2 
PRINTOZ,2#I-1:F$;:MIDSCCS.A,3 3:66: 
PRINTRZ,2#1:F&:MIDSC CS, 4,32: GS 

MEXT I : 

IF UeH THEN 5=5+10 

GOTO 139 
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Sous-marin 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de Jeu : réflexes (1 seul Joueur). 
Difficulté du jeu : facile. 


LE JEU : 

Vous manœuvrez en surface un chasseur de sous-marins, et des sous- 
marins passent très régulièrement en dessous de votre unité, à différentes 
profondeurs. 

Vous pouvez, à tout moment, larguer des grenades sous-marines et vous 
pouvez même envisager de toucher plusieurs fois le même sous-marin. 
Votre score sera affiché en permanence, sur la gauche de l’écran (rapport 
nombre de coups au but sur nombre de sous-marins apparus). 


LE PROGRAMME : 

La ligne 79 permet à l'ORIC-ATMOS de choisir la profondeur du sous- 
marin. 

La ligne 99 dessine votre bâtiment. 

La ligne 199 affiche le score et dessine la surface de l’eau. 

La ligne 119 dessine le sous-marin. 

Le tir est effectué par un programme spécifique placé aux lignes 199 à 
230. 

Le déplacement (très rapide) de votre navire est réalisé par les lignes 169 
et 170. 

Le test, permettant de savoir si l’on a touché ou non, est effectué en ligne 


130. 
POUR JOUER : 


Taper RUN pour commencer la partie. 

Le bâtiment sera déplacé grâce aux flèches droite et gauche. 

La touche O autorise le tir. 

Le navire, se déplaçant trois fois plus vite que les sous-marins, il sera 
possible de toucher plusieurs fois le même bâtiment. 

Pour terminer la partie, il conviendra de faire CTRL et C ou d’attendre 
99 sous-marins. 


EXTENSIONS POSSIBLES : 

Il sera assez élémentaire d'améliorer la qualité graphique du jeu, d'utiliser 
la couleur et les sons, de faire apparaître plusieurs sous-marins se dépla- 
çant à des vitesses différentes, éventuellement même, de permettre aux 
sous-marins de tirer. 


AREA ELA EUX EL 


Un Rio or 


ee, 
ss 


Lo Pie Oo im ii 


a be pt pee Et DD a TS 
CR RARE LX | 


Ü 


Fes 
EE 
= 
ES 


Pb je jee 
MES 
DR 


Cu PQ re © 0 
Sono Es 


Fo Pi Po er 


REM SOUS-MARTH : 
Che HRGE Ze 1: Eg=CDg+"T":FEe0Dg+ "HA" 
PAPER 6&:IMNE G:CLS 
Paf : Ce17:GeS: PRINT CHEGC IF 0 
FOR Is si T9 S:PLOTA. I. 23: HERT I: 
PLOIT1,3, 1:FLOTE, 4,4 
PRIHTZ 5" ! 

Ter: Se TNTE RD TERRES 1: PeP4+f, Gi 
He 
PRINHTBC,GS:E$:" TU É 

PRIHTEZ, 18) MECORE "3 INT PÆ1 GA 1-1 414 
PRINHTOT.S;E%: DS Re F " 

IF = THEN TEC+2kH 

IF Sex AND CT+2eÿ OR T+3e% THEH FaF+l: 
PRINTRT, Si DS: "AM UEXEN : EXPLODGE 
Tatsiiir P=99 THEH PRINT, 186: 
ICTES ST FINI..,.,":2AP:2AP:ZAP:EHD 

IF T£3 THEH EE 

ua KEYS 

aC—3ÆCCABSCHRSE GS AND CERF ee Abe CHRSCE 

ENS Ce ui 

IF Agé" " AND #e1l THEH 364 

FPRIMNTES, KM" 

Het À 

IF #35 THEN 86 

PRINT", 4; MOI" 

GOTO 36 
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Zombies 


REFERENCES : 

Difficulté de programmation : assez difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : assez facile. 


LE JEU : 

Les ZOMBIES sont des êtres malfaisants qui vont essayer de vous détruire, 
mais vous allez, vous aussi, essayer de les utiliser à votre profit, pour 
débarrasser votre espace vital des trous noirs qui l’obscurcissent. Sur 
l'écran, est tracé un cadre qui définit votre espace vital. Dans ce cadre, 
vont apparaître de façon aléatoire, les ZOMBIES (ce sont des Z inversés), 
les trous noirs (des carrés noirs) et le joueur (un O). Les ZOMBIES conver- 
gent vers le joueur pour essayer de le capturer, mais celui-ci se déplace 
plus rapidement qu'eux, et il va essayer de leur faire avaler tous les trous 
noirs, sans se faire prendre. 

La partie se termine, soit avec la disparition du joueur, soit par l’élimi- 
nation de tous les zombies. 


LE PROGRAMME : 

La position des ZOMBIES est définie par un tableau Z non dimensionné 
(c’est inutile en dessous de 14). 

Les lignes 49 à 199 (boucle I) dessinent le cadre, les ZOMBIES et les trous 
noirs. 

La ligne 119 définit la position initiale du joueur. 

Une deuxième boucle I (139-229) réalise le déplacement du joueur. 

Les lignes 279 à 329 contrôlent le déplacement du joueur. 


POUR JOUER : 

Après avoir lancé l’exécution par RUN, le joueur devra se déplacer en 
utilisant les 4 flèches et en veillant à ne pas sortir des limites du terrain. 
Il devra manœuvrer de façon à faire venir les ZOMBIES sur les trous noirs, 
sans se faire lui-même coincer. | 

Pour arrêter la partie avant la fin, il suffira de taper CTRL et C. 


EXTENSIONS POSSIBLES : 

Il serait intéressant d’agrandir le terrain de jeu, d’augmenter le nombre de 
ZOMBIES ou de trous noirs, d'améliorer les contrôles, de placer le joueur 
de façon plus aléatoire, éventuellement de modifier la règle. 

On pourra aussi, bien sûr, améliorer la qualité du dessin et de la couleur. 


19 REM ZOMBIES 

26 PRINT CHR$(17 3: E$=CHRS& 255 à 

39 PAPER 6:IHK 4:CLS 

49 FOR I=Q TO 22:PRINTRI+2.G;:ES:PRIHTRI+2,23;E#$ 
54 PRINTR2,1:E$:PRINT@Z24,I:ES 


IF 1<4 OR 1223 THEN 99 
IF RHDC12<9.5 THEN PLOTI, INTCRHDE 1 241942 3, CHR&C 163 


89 Sæ=INTÉ RHD6 1 2#14+1 3 


199 
119 
129 
139 
149 
159 
169 
178 
189 
198 
298 
219 


ZCINTÉ1/353+1=5+5 

NEXT I 

Ka INT RHDE 1 2418435 

P=9 

FOR 1z1 TO 4 

PsP+2( I) 

IF 2C12=9 THEH 229 

PRIMTIEZ( I+43,2C153;5" " 

20 12=2€ I 2-SGNCZC I 3-5 à 

ZC I+4 22€ I +4 3-SCGMC ZK 1 +4 3-K 2 

IF SCRNÇZCI+42,2C13)e163 THEN Z(I53=@:G0T0 214 
PRINT®@Z( 1+42,2C19;"2Z" 

IF ZI)=5 AMD ZéI+dizk 

THEN PRINT'VOUS AVEZ PERDU .,., ":ZAP:ZAP:2AP:END 


229 MEXT I 
234 1F P=ÿ THEN PRINT"ERAVO . 


VOUS AVEZ DETRUIT TOUS LES 2OMBIES" :PING:END 


249 PRINT®K,5S;"0" 

259 UAIT 139 

264 PRINTEK,S;" " 

274 AS=KEYS 

280 K=K-2%( € AS=CHREC 9 2 2-C AB=CHREC ES à 3 à 

299 IF K<=2 OR K>=24 THEN PRINT'COMMAGE., , ": EXPLODE : END 
399 S=5-2%((AS=CHREC 19 2 2-< ABE=CHREC 1 1 2 3} 

319 IF S<=Q OR 52222 THEN K=25:G0T0 239 

324 GOTO 124 


: 
Li 
FA 
: 
FA 
El 
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Diago 


REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : réflexes (1 seul joueur). 


Difficulté du jeu : difficile. 





LE JEU : 

On lance le programme par RUN et on obtient un premier affichage qui 
vous renseigne sur la performance à réaliser (par exemple, 5 points noirs 
ou 17 points noirs...), puis le temps est affiché et décompté, à partir de 19 
secondes. Le jeu commence lorsque l’on arrive à Ÿ seconde. Des ronds 
apparaissent alors en bas et à gauche de l’écran, formant une ligne dia- 
gonale, et 1l vous faudra appuyer sur la touche @ pour arrêter l'affichage 
des points dès que vous estimez que le nombre de points demandés au 
début est apparu à l'écran. 

On obtient alors un affichage BRAVO ou PERDU selon le résultat obtenu. 


LE PROGRAMME : 

Le nombre de points noirs sera choisi au hasard, en ligne 40. 

Le temps est décompté par les lignes 59 à 110. 

Les points sont imprimés et la ligne diagonale est fabriquée par la ligne 
140. 

La pression de la touche Ÿ est détectée en ligne 189, et la ligne 199 contrôle 
la fin de partie (aucun réflexe). 

Les affichages de fin sont exécutés par les lignes 199 à 230. 


POUR JOUER : 

On lancera l’exécution par RUN. 

On obtient alors l'affichage de la phrase LE BON REFLEXE EST A... qui 

indique le nombre de points gagnants. 

Le temps sera ensuite décompté sous la forme ATTENTION : IL RESTE 
… SECONDES qui indique le temps restant avant l’apparition de la dia- 
onale. 

À l'affichage de 9, la diagonale apparaît et commence à se déplacer sur 

l'écran. 

Si l’on estime que le nombre de points réclamés a été atteint, on devra 

presser la touche 4. 

L'affichage indique alors BRAVO si l’on a gagné, ou PERDU dans le cas 

contraire ; puis la phrase AUTRE ESSAI (O/N) est affichée, répondre O 

pour faire une autre partie. 


EXTENSIONS POSSIBLES : 

On pourra envisager une adaptation du jeu à deux joueurs ou plus, en 
laissant la diagonale se former complètement et en testant la coincidence 
lors de la pression de la touche affectée au joueur. 

On peut aussi réaliser un graphisme plus soigné et modifier le principe du 
déplacement des objets sur l’écran (déplacement horizontal, vertical ou 
apparition au hasard...). 


14 FEN CTAG( 
24 PAPER G:INE G:PRINT CHE TL 2 
af CLE 
LHTÉE RHONE À ETES 
54 Self 
E4 FPRINT:PEITHTULE BOH REFLEXE EËT 4 "aix 
Fa PRINTRE, 14: "ATTENTION , IL RESTE "Migit SECTIMGES" 
54 Sai-i 
34 PING:HAIT 124 
144 CLS 
114 IF SA THEH 64 
128 FOR Ie4 TO SA: PLOTIS TA HERT T 
1524 L=f 
144 PRIHTIREAHLL, EE à POP: FRTHT 
154 HAIT 15 
LEA LslIt 
174 AS<KEYS 
184 IF AS="A" THEN 214 
198 IF LIx£2 THEN FRIHT'FEROU S EEPLODE : GOT 24 
EAañ GOT 14 
214 IF és THEN Lez: GOT 19564 
224 PRIHT'BRAYON EAP : EAP: EAP 
24 PRIHT:PRIHT'AUTRE ESSAI OH" 
4 GET AR:IF AG:"Q" THEN 36 












FEROLI 
AUTRE ESSAI (0H 
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Décomaque 


REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : solution du programme Nicomaque. 
Difficulté du jeu : aucune. 


LE JEU : 

C’est une réplique au programme Nicomaque, proposé dans les pages 
précédentes ; vous entrez les restes successivement dans les divisions par 
3, » et 7 d’un entier compris entre 1 et 190, et l'ORIC-ATMOS calcule et 
affiche cet entier. Le procédé retenu peut d’ailleurs être généralisé (à vous 
de trouver comment). 


LE PROGRAMME : 

Les lignes 39 à 50 affichent quelques explications. 

La ligne 90 attend que vous frappiez un reste, qui sera refusé s’il est 
incompatible avec la division par le nombre affiché. 

La ligne 199 emmagazine les restes dans une variable non dimensionnée 
A (S). 

Les lignes 139 et 149 réaffichent les restes entrés. 

Les boucles [ (150-199) et J (169-180) dessinent des petits carrés selon 
les restes introduits. 

Les lignes 229 à 240 gèrent la fin de partie. 


POUR JOUER : 

On lance le programme par RUN. Un texte de présentation est affiché, 
puis le message “RESTE DANS LA DIVISION PAR 3” s’affiche. 

On doit répondre 9, 1 ou 2, et l’on obtient le message “RESTE DANS LA 
DIVISION PAR 5” etc. 

La solution est affichée dès que l’on a donné les 3 restes. 

Pour une autre partie, taper O à la question VOULEZ-VOUS UN AUTRE 
ESSAI (O/N). 

Tapez N pour finir. 


EXTENSIONS POSSIBLES : 

On peut étendre le programme aux entiers de 1 à 1900, soit en utilisant 
les restes par 3, 5, 7 et 11 ; on pourra rajouter du son et de la couleur pour 
rendre le programme plus attrayant. 


REM CECOMAQUE 
CLS:PFAPER 3:INK 4 :D$=CHRSC 27 3: E$=0$+".)" 
PRINT'YOUS DEVEZ ENTRER LES TROIS RESTES" 
PRIHT:PRINT'OAHS LES DIVISIOHNS PAR 3 , 5 ., ET 7" 
PRIHT:PRIHT"'C'UN NOMBRE ENTIER IHFERIEUR 4 14" 
1=3:5=1 
A$="RESTE CAHS LA DIVISION FAR " 
PRINTEZ.11:E$: AG: I:PRINTEZ.12:E6:A$:I 
GET B$:IF E$<"a" OR BS>CHRSS 47+11 THEH 34 

A6 S 2=ASCCBS 1-48 

S=eS+l:I=I+2 

IF I£S THEH F4 

A$="RESTE :PAR 3 PAR © PAR 7" 
PRINTOZ.17:E$: AS: PRINTEZ.18:E$: 4% 

FOR Izi TO 3 

FOR Jei TO AI: 

IF ACI)<>G THEN PRIHTBIGEI-4+24.1, 15: D$; "A4": CHRSC 258 à 
MEXT I 

ZAP:HEXT I 

T=AC 1 MK PARA 2 OKZIHACTIKIS 

IF T>145 THEH T=T-145:G0OTO0 214 

PRINT@Z,24;"LA SOLUTIOH EST :"iT 
PRINTRZ,22;"VOULEZ-YOUS UN AUTRE ESSAI <cC/H 5" 
GET B$:IF E$="0" THEH 29 


UOUS DEVEZ EHTRER LES TROIS RESTES 
DAHS LES OIUISIONS PAR 3 , $ , ET F 
C'UN NOMBRE ENTIER INFERIEUR 4 19% 


RESTE DANS LA OIUISION FAR 7 


# g 
D FA 4 LA 


# ET 
RESTE :PAR 3 FRS 
LA SOLUTION EST : 88 
UOULEZ-UQUS UH AUTRE ESSAI COM 
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Chasse au sous-marin 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de réflexion. 
Difficulté du jeu : moyenne. 


LE JEU : 

Vous êtes à bord d’un bâtiment de surface, chargé de traquer un sous- 
marin caché quelque part dans votre secteur ; vous devez vous déplacer 
jusqu’à venir au-dessus du sous-marin et tirer à une certaine profondeur ; 
mais, attention : le sous-marin, lui aussi, est mobile ; il ne coupera ses 
moteurs que lorsque vous serez exactement à sa verticale, pour ne pas être 
repéré. 


LE PROGRAMME : 

La boucle I (69-129) affiche le terrain. 

La ligne 149 définit la position initiale du sous-marin ; la ligne 150 permet 
son déplacement, contrôlé par la ligne 160 (on reste dans les limites du 
terrain). 

La ligne 189 affiche votre position. 

Les lignes 229 à 249 contrôlent votre déplacement. 

La distance est calculée en ligne 259, affichée en ligne 269 et testée en 
lignes 270 et 280. 

Le test de fin de partie est effectué à la ligne 310. 


POUR JOUER : 

On lance le programme par RUN et on entre la dimension ; la grille de jeu 
s'affiche. Vous êtes au départ en position (O, O) et vous vous déplacez 
avec les flèches. 

Après chaque déplacement, la nouvelle distance du sous-marin s’affiche ; 
à chaque coup le sous-marin se déplace. Si vous réussissez à vous placer à 
sa verticale, la distance Ÿ est affichée et il ne bouge plus. 

Vous tirez en donnant une profondeur entière (entre 2 et 4, bornes 
comprises). Si vous le ratez, il se replace n’importe où, et on recommence ; 
si vous le coulez, vous obtenez l'affichage BRAVO et la partie s’arrête. 
On peut arrêter à tout moment le programme en utilisant la touche F. 


EXTENSIONS POSSIBLES : 

Il est possible de prévoir une amélioration du graphique, d’améliorer les 
possibilités de déplacement du chasseur (un peu lent, dans cette version), 
de prévoir des parcours plus sophistiqués pour le sous-marin, de mettre 
un compteur de temps. 


REM CHASSE AL SOUS-MARIH 
D$=CHRSE 27 1: ES=D$+" A": FE=<D8&4+"C" 
PAPER 6:IHK 4: G&=CHR&E 255 2: PRINT CHR&C 17 
CLS:PRINT:INPUT'OIMENSION DE LA GRILLE :"35H 
CLS 
FOR I=4 TO H 
PRIHTEZ#T+S, Gi 
PRINTUZ,2#1+2:1 
FOR J<9 TO H 

PRIMTOZ#I+6, 2#I+2; 0." 

MEXT .J 

HMEXT I 

I=1:#=6:"=04 

MY=TIHTÉ EHDC 1 24H 0: U=TINTE RHDC 1 T#H 

LEUXT :V=w+T 

IF CU<G OR USH OR V<G OR V3Hï THEN I=-T 

IF Y<3@ THEN PRINTRZ#"Y4+S, Zn it , " 
PRINTEZX#"Y+5, 2#4+2:E8:G$:F% 

IF Y<H THEH PRIHTERS# 47, EAST 

IF #39 THEN PRINTUE#Y4S. 24" 

IF #€2H THEN PRINTRZ# NS, 2td it 

GET A$:IF A$="F" THEH EHC 

f=t-C AG=CHRSGE 9 AND VHC ABECHRSEE 8 1 AND 5 à 
HekC ASECHREE 140 AND CH CC ASECHRSEE 113 AND 45:90 
D=INTÉ SOIR ABS HU TARBES CU 12 4 
PRIMNTB31,1G:"OIST, MiSTRGC D M" Mi: PING 

IF C=4 THEH 348% 

IF Dé3 THEH 156 

GOT 174 

PRIMNTR31,12:"PRÛF. "3: THPUT © 

IF CsINHTERHDC 1243423 THEH PRINT'"ERAYO" : EXPLODE : EHD 
PRINT@31,12;" ":2AP:ZAP:€AP 
GOTO 148 
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Clavier 


REFERENCES : 

Difficulté de programmation : moyenne. 

Catégorie de jeu : jeu de réflexe (apprentissage du clavier). 
Difficulté du jeu : difficile. 


LE JEU : 

Une reproduction du clavier de votre ordinateur apparaît sur l’écran ; un 
point apparaît en dessous d’un caractère, qu’il convient de frapper au 
clavier. Plus l’on frappe vite, et plus le point se déplace rapidement (le 
temps écoulé depuis le début s’affiche en fin de partie). 


LE PROGRAMME : 

Une variable A$ dimensionnée en ligne 69, contiendra la liste des touches 
concernées. Les valeurs des touches sont entrées de la ligne 79 à la ligne 
129 par appel d’un sous-programme situé en 300. 

Les boucles emboîtées J (139-170) et I (149-1609) dessinent le clavier. 
La ligne 189 définit la position du point imprimé par la ligne 190. 

La touche frappée est testée aux lignes 229-239 et le point est effacé par 
la ligne 250. 

Les affichages de fin sont réalisés aux lignes 270 à 290. 


POUR JOUER : 

On lance le programme par RUN. L'on dispose alors de quelques secondes 
pour frapper la touche qui occupe la colonne au-dessus de l'étoile, puis 
une autre étoile est affichée, etc. 

La durée de la partie n’est pas limitée ; il suffit de taper Q pour obtenir 
l'affichage du score, et du temps total. 

Faire RUN pour une autre partie. 


EXTENSIONS POSSIBLES : 

On pourra envisager de faire clignoter les lettres, ou de les afficher en 
couleur, au lieu d'indiquer la colonne par une balle. On pourra afficher 
les lettres devinées justes en bas de l’écran, et éventuellement s’entraîner 
à taper un texte qui défile en haut de l'écran, lettre par lettre. 


14 
24 


34 
4 


24 
64 


194 
11% 
124 
136 
144 
159 


166 
174 
184 
134 
248% 
214 
ef 
236 
248 
234 
26 
2rf 
288 
290 
344 


REM CLAVIER 
Dé=CHRSE 27 1: EfeD$+" I PRINT CHE&E 1 
PAPER F:IHNE G:CLS 
FOR Izi TO 3: AR ##I+1, 1: PLOTIL, 4ET+E, 1: 
PLOTI, 4#T+5 2: PLOT1: 4XI+4, Z'MEËT TI 
TsG:Sef:P= a 
DIM A$E 16,: 

SM QUERTULOP" : Jet 
COISUE 3644 
S$="ASDFGHJEL ; "5 Jez 
GOSUE 34% 


St ZACMENNM, és 

GOSUE 34 

FOR .Je1 TO 3 

FOR I=1 TO 14 

PRIHTRZXÆTI+.I, #41: ES: ACT. 1: 
PRINTRSET +, d'Eté: ES: AGE TI... 

HEXT ! 

MNEAT 

#e LHTÉRHDE 1 EG + 1 ES TMTÉ END EST 1 


PRIHTE#H4 4", d'EV4S ES: ME PRTHTETEE ET, Éd: ES UE 
FOR Fel TO SA4+RNDE 1 14140: A$=EETS 

TeT+1:IF A$=<"" THEH HEXT F 

IF A$=ASGCX, 2 THEM 5=5+l 

IF A$="G" THEN 276 

P=P+1:PING 

PRIHTREKE 4, dEN4S ES"  PRIHTISEHEX4N, dédie: M" 
GOT 184 

PRINTE2,24;:5;" TROUVES JUSTES SUR "MiFi" ESSAIS" 
PRIHT:PRIHT'YOTRE TEMPS : UT 

EXPLOCE : EHC 

FOR Is1 TO 14:A$CI,JI=MID$CS$, T1: MEST TI: HETURH 


BHERTYUIOP 
BU ES RAN EL 
LHCUENM 


22 TROLUES JUSTES SUR 37 ESSAIS 
VOTRE TEMPS : 3111 
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Le lézard d’Alice 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : solitaire. 
Difficulté du jeu : assez difficile. 


LE JEU : 

Il s'inspire très vaguement d’une idée de LEWIS CARROLL, dans “Alice 
au Pays des Merveilles”. Dans l’histoire originale, Alice grandissait ou 
diminuait, alors que dans le jeu, pour des raisons d’encombrement de la 
mémoire, c’est un lézard qui change de taille. 

Deux verres apparaissent sur l’écran : l’un contient le liquide qui fait gran- 
dir, l’autre le liquide qui fait rapetisser (malheureusement ce n’est pas 
toujours le même verre). Le joueur devra indiquer la quantité de liquide 
qu'il désire boire et le lézard changera de taille en fonction de cette quan- 
té. Le but du jeu est de parvenir à lui rendre sa taille initiale. 


LE PROGRAMME : 

La boucle I (69-90) dessine les verres. 

Les deux boucles emboîtées I (179-230) et J (189-210) les remplissent 
avec la quantité indiquée en ligne 150. 

La variation de taille du lézard est définie par la ligne 269, avec contrôle 
par les lignes 270-280 et 290. 

La boucle I (300-320) dessine le corps du lézard, les lignes 330 à 389 
dessinent l’œil et les pattes. 

Un message gagnant sera affiché par la ligne 400 si l’on a trouvé la bonne 
taille. 


POUR JOUER : 
On lance le programme par RUN : les deux verres se dessinent, puis ap- 
paraît la question QUEL COTE à laquelle on répond en tapant G ou D ; 


on obtient alors l’affichage QUELLE QUANTITE ; on entre alors une 
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quantité (de Q à 300) et on frappe RETURN. 

Le verre désigné se remplit sous vos yeux, puis, après quelques instants, 
le lézard est affiché. On devra alors frapper une touche quelconque ; si le 
lézard n’avait pas la bonne taille, aucun message n’est affiché et l’on re- 
vient au dessin des verres, on tapera F pour finir. 


EXTENSIONS POSSIBLES : 

Puisqu’il s’agit d’un jeu essentiellement graphique, il sera intéressant 
d'améliorer les dessins, d'introduire la couleur, de modifier le caractère 
aléatoire du choix des verres, etc. ° 

Pourquoi ne pas relire Alice au Pays des Merveilles, les idées n’y manquent 


pas. 


DEaCHRIC 27 3: EB2D8+" 4": FfmCHRIC 2535): PRINT CHR 172 


19 REM LE LEZARD D’ALICE 
20 

38 PAPER 6:INK 1 

4a CLS 

59 N=18 

68 FOR 1=1 TO 3 


79 PRINTE3, 1+4,F8:PRINTIE18, I+4,F8 
PRINTE13, 1+4, F8: PRINTEZ20, 1+4:F8 


419 


NEXT I 


FOR 1x3 TO 19:PRINTEI, 14: FR:PRINT@I+10, 14: FR:INEXT I 


PRINTE4, 15; "GAUCHE" : PRINT@14, 15, "DROIT" 
PRINTEZ,17:"QUEL COTE :"; 


ASeKEYS:1F ABC)>"D" AND AS<2"G" THEN 139 
IF Af="D" THEN PRINT'DROIT" ELSE PRINT'GAUCHE" 
PRINT:PRINT'QUELLE QUANTITE :";:INPUT QG 


Umd-10X%(A8="D") 


FOR Ixi TO SOR(G)/2 


FOR Jag TO 5 


PRINT@U+J, 14-1I ; CHR 148); 


PING 

NEXT J 
PRINTCHRS( 9);E# 
NEXT I 


ZAP:2AP:ZAP:GET A$ 


PAPER G:HIREZ 


H=2#C RND( 1 3<9.5 2+1 


NaN+HXINTC SGIRE GI 2 ) 
IF NC12 THEN N=12 
IF N268 THEN N=69 


FOR 1=9 TO 4XCN+3) 


CURSETI , 199, 1 'CURSETI , 99, 1:CURSETI,98,1:CURSETI,97,1 


NEXT I 


Ted#kCN-INTCCSGRCN2/233) 


CURSETT,88,2:CURSETT-1,99,2:CURSETT-2,99,2: 


CURSETT+1.89.2:CURSETT+2,90,2 


T=4XSGRCN 2: CURSETT, 192,2: CURSETT-1,193,2:CURSETT-2, 194,2 
TeT+2:CURSETT, 192,2: CURSETT+1,193,2:CURSETT+2,194,2 
Tæd#(N-SGRÇCN ) à: CURSETT, 192,2: CURSETT-1, 193,2: CURSETT-2, 194,2 
TeT+2:CURSETT,192,2:CURSETT+1,103,2:CURSETT+2,194,2 


GET AS:IF A8="F" THEN TEXT:END 


TEXT:1IF Ne28 THEN PRINT"BRAVO" : EXPLODE : END 


GOTO 39 


CAULH 
QUEL COTE : GAUCHE 


QUELLE BUANTITE :% 


124 
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Calculatrice 





REFERENCES : 

Difficulté de programmation : très difficile. 
Catégorie de jeu : simulation d’une calculatrice. 
Difficulté du jeu : moyenne. 


LE JEU : 

Il s’agit de la simulation, en affichage grand format, du fonctionnement 
d’une petite calculatrice de poche, de type 4 opérations. Les applications 
pédagogiques de ce programme sont évidentes et son fonctionnement très 
simple à maîtriser. 


LE PROGRAMME : 

Les variables B$ et C$, des lignes 20 et 30, contiennent les informations 
codées qui permettront le dessin des chiffres en grand format. 

Les lignes 69 à 150 s'occupent de la gestion des entrées (la boucle I (160- 
190) réalise la représentation, en grand format, des chiffres sur l’écran, 
au fur et à mesure des entrées. 

Le point décimal et le signe moins sont gérés par les lignes 200 et 210. 
Le nombre total des symboles entrés est contrôlé par la ligne 220. 

Le résultat est inscrit grâce à un programme fonctionnant en automatique 
qui se trouve aux lignes 279 à 399 (l’automatisme est géré par la ligne 
230, dans le programme principal). 

Les sous-programmes placés aux lignes 400-410, 420-430, 440-450 et 
469-479 effectuent l'opération indiquée, selon la valeur de Z (ligne 310). 
Chaque résultat est mémorisé en A (F-1) (ligne 330). 


POUR JOUER : 

On devra lancer le programme par RUN. 

Puis, on tape les chiffres du premier nombre à entrer qui vont s’afficher 
un par un, au fur et à mesure (on ne pourra entrer plus de 8 symboles, y 
compris le signe moins et le point décimal). La frappe d’un signe opéra- 
toire laisse l’affichage intact, mais l'introduction du prochain chiffre ou 
symbole provoque l’effacement immédiat et l'affichage du nouveau sym- 
bole. Il est à remarquer que les chiffres s’introduisent de gauche à droite, 
sens de l'écriture usuelle. 

L'appareil accepte, comme signes opératoires les symboles +, —, *, / ; le 
signe = provoquera l'affichage du résultat. Les opérations sont enchaïnées 
automatiquement, le résultat précédent étant pris en compte comme opé- 
rateur du calcul suivant. 

Pour faire une autre opération, il faudra taper F, puis RUN. 

Taper F pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On devra, tout d’abord, améliorer l'affichage du signe moins (représenté, 
ici, par un trait), puis on pourra améliorer le dessin des chiffres (en utili- 
sant, par exemple, le générateur de l'ORIC-ATMOS), on peut aussi envi- 
sager une extension à plus de 8 chiffres, autoriser des opérations plus 
complexes (COS, SIN, …), ajouter des mémoires, etc. 


(23.561 
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FREM CALCULATRICE 

E$S=CHRSC 255 2: CS<ES+ES+E$+E$+" 1+ES+E +" V4ES 
B$="14441333331312113131441331213112141123331414114131" 
F=l:Le9G:PAPER 3:1HK 1'CLS:PRINT CHRS$C 17 
N=G:T=9:K=g:R&="U" 

GET A$:IF A$="F" THEN END 

IF K=1l THEN HeG:R$="":K=A 

IF Ag="=" THEH 264 


94 H=C1 AND AS="+"3462 AND Ag="-" 3463 
AND AS="#"3+64 AND AS="/") 

198 RS=RS+AS 

119 IF <> THEN 264 

129 IF Ré="-" THEN AS=RS:GOTO 299 

139 IF A$<"." OR A$>"9" OR A$="/" THEN 64 

144 IF N=@ THEN CLS 

159 IF AS="." OR A$="-" THEN 299 

168 FOR I=1 T0 5 

174 S=3#kVALCMIDSCES, L+SkVALC AS D, 1 3-2 

188 PRINTEN+2, 1+3:MIDSCCS.5, 3) 

199 NEXT I 

204 IF AS="-" THEN CLS:PRINTRS,7:E$;ES# 

219 IF AS="." THEN PRINTON+3,8:ES 

229 N=N-4#CN<28) 

239 IF T<>9 THEN T=T+1:IF T€=LENCRS) THEN 384 

244 IF K=1 AND L<>1 THEN 54 

259 PING:T=9:G0TO 68 

264 IF R$="-" AND ACF)=4 THEN 128 

278 N=g:K=1 

289 IF CAS="#" OR Af="/") AND VALCRS)=9 THEN ACF)=1:GOTO 309 

296 ACF )=VALCRS 

399 IF X<>9 THEN Z=# 

319 ON Z GOSUE 499,429, 449,464 

329 IF AS<)"=" THEN F=F+1 ELSE F=2 

338 ACF-1 = YALCRE D 

349 IF VALCRS)=0 THEN ACF-12=ACF 

359 RS=STREC VALC RE DD 

360 17 LEFTSCRE, 1e" "THEN RS=RIGHTSCRS, LENCRS 3-1 

374 T= 

389 AS=MIDSCRE, TT, 1) 

398 GOTO 149 

409 RS=STRSC AC F1 24ACF 22: ACF = VALCRSD:L=1 

419 RETURN 

428 1F F<>1 THEN RS=STRSCACF-1 2-ACF 22: ACF = VALCRS D: Le 

439 RETURN | 

449 IF F<>1 THEN RS=STRSCACF-1 DKACF 2): ACF De VALCRS à: L=1 

458 RETURN 

469 IF F<>1 THEN R8=2STRSCACF-12/ACF 32: ACFD=VALCRS D: L=1 

478 RETURN 
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Niveau 5 


Nom du programme 


Thèmes et particularités 





Smokey 

Course de voitures 
Echecs 

Danger spatial 
Tic Tac Toe 


Chenille 
Dames 
Quatre à quatre 


Anagrammes 


Oeufs 
Taquin de lettres 
Cibles 


Gouttes 
Obstacles 


Captures dans l’espace 
Anomalie 

Plusieurs en un 
Parcours du cavalier 
Mur de briques 


Othello 


Fumez sans risque, avec ce programme 
original pour un joueur. 


Un jeu de réflexe pas trop difficile, pour un 
Joueur. 


Un programme assez simplifié, pour deux 
joueurs. 


Serez-vous assez adroit pour évitez toutes 
les météorites ? 


Un classique, mais pas sans intérêt (deux 
joueurs) 


Un jeu d’action à plusieurs tableaux. 
Pour deux joueurs : classique. 


Un jeu de réflexion un peu difficile, pour 
deux joueurs. 


Un bon jeu de réflexe : pour deux joueurs. 
Ne laissez pas faire la pondeuse diabolique 
(un joueur). 
Un proverbe est caché dedans : à vous de 
le découvrir. 


Un peu d’adresse, beaucoup de chance : 
très visuel. 





Un véritable gag visuel. A exploiter. 


Beaucoup d'obstacles à éviter dans ce jeu 
d'adresse pour un joueur. 


Votre mission serait facile, sans ces dam- 
nées météorites. 


Exercez votre perspicacité dans la recon- 
naissance des symboles. 

Un terrain de jeu et les pions, pour deux 
Joueurs. 


Très spectaculaire, et instructif à plus d’un 
titre. 


Un grand classique dans une version très 
complète. 


Pour deux joueurs ; il retourne les pions à 
votre place. 
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Les techniques 
évoluées de 
programmation 





LES INSTRUCTIONS D'EXPLORATION DES CASES MEMOIRES : 
PEEK et POKE 








Pour compléter la panoplie des instructions disponibles en standard sur 
l'ORIC-ATMOS, on sera, dans certains cas, obligé de faire appel à des 
instructions permettant la manipulation directe dans les mémoires de l’ap- 
pareil ; 

La fonction PEEK permet la lecture directe du contenu de l’une des cases 
mémoires adressables par le microprocesseur. 


La fonction POKE permet, au contraire, l'inscription directe d’une quan- 
tité, décimale ou hexadécimale, dans l’une de ces cases mémoires (la quan- 
tité est nécessairement un entier compris entre Ÿ et 255). 


LES CARACTERES GRAPHIQUES DEFINIS PAR L'UTILISATEUR 





L'utilisateur dispose de la possibilité de remplacer n’importe quel carac- 
tère de son choix par un caractère (ou un dessin) qu’il aura lui-même 
défini, en “POKANT” dans les cases mémoires convenables. 


Chaque caractère sera défini par allumage ou extinction d’un point dans 
un rectangle de 6 cases sur 8, selon le schéma : 


8 cases 





Chaque suite de 6 caractères est transformée en un nombre de @ à 63, huit 
nombres définissant le dessin élémentaire. 
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LA RECONNAISSANCE D'UN OBJET SUR L'ECRAN : LECTURE DU 
CARACTERE PLACE EN COLONNE X, LIGNE Y PAR SCRN (X, Y) 





L’instruction SCRN (X, Y) permet de reconnaître le code ASCII du carac- 
tère présent sur l’écran en colonne X et en ligne Y. 


On pourra reconnaître par cette méthode les caractères agrandis ou les 
caractères définis par l'utilisateur. 
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Smokey 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : solitaire. 

Difficulité du jeu : moyenne. 


LE JEU : 

Une colonne de fumée grise apparaît sur l'écran. Le joueur, représenté par 
un cœur, devient visible en haut de l'écran. Il doit dans un premier temps 
se positionner sur la colonne de fumée, puis à partir de là, 1l va automati- 
quement avaler la fumée, à condition qu'il réussisse à se maintenir sur sa 
trace. 


LE PROGRAMME : 

La ligne 99 fait apparaître la fumée au bas de l'écran ; la ligne 190 permet 
de changer (vers la droite ou vers la gauche) la direction de la colonne, et 
la ligne 129 fait monter la colonne. 

Le joueur apparaît grâce à la ligne 149, et son déplacement est effectué 
par les lignes 180 et 190. 

Les lignes 259 et 260 se chargent de l’affichage du résultat. 


POUR JOUER : 

On doit lancer l’exécution du programme par RUN. 

La fumée commence à s'élever, tandis que le joueur, apparu sous forme 
d’un cœur dans un coin de l’écran, va se déplacer sur elle à l’aide des 4 
flèches. Dès qu’il arrive sur la fumée, il va automatiquement commencer 
à l’avaler, et devra essayer de suivre la colonne sans dévier (grâce aux 
flèches). Il gagne s’il arrive en bas de l’écran avant que la fumée n'arrive 
en haut. 

L'affichage final indique alors BRAVO ou PERDU, ainsi que le score ob- 


tenu. 


EXTENSIONS POSSIBLES : 

On pourra, tout en conservant l’idée de départ, imposer d’autres règles : 
par exemple avaler toute la fumée, qui pourra aussi repartir d’un autre 
endroit si l’on dévie de la colonne initiale. 

On pourra aussi améliorer les contrôles de fin de partie, et la qualité du 
graphisme. 


14 REM SMOKE" 

24 DATAG.12,34,62,63,34,12,4,4 1263.63, 34, 
34 FOR I=46856 TO 46871 :REAL A: FêK I : 
44 PAPER 2:INE L'PRIMT CHAGC1F 5 

54 Dé=CHRSC 27 3: E$=D$+"0":Fé=0S+"A" 

69 S=4: 4224 : = THTCRNDC 17424 à 

F4 U=g:y=1s 

89 CLS 

99 PRINTEY+E,#;"a" 

144 =ÿ-< RHDC 166,5 AMD éd 4i RHDC 1 5€ 64,5 AND 40 

114 T=i 

124 Kak-T 

134 IF “= THEH 254 

144 PRINTEY41,1:E$;"E":FS 

154 IF T<:4 THEH FOR I=1 TO SAM: AS=EETS IF ARS" THEN 174 
164 IF T£:4 THEH MEXT I 

174 PRINT Y+1,11i" L 

184 Lisli-cAR=CHRSE 16% AND: T=1 AMD éd 

198 LalI-€T<4 

244 Vew-c AG=ECHREE 9 AND Med 4e AGSCHRGE ES SO AND 1 5 

214 CESCRNCOUES, Li 

+97 THEH 94 

+1 

| THEH 14f 

284 IF T=<f THEH FRIHT"ERAMO SEA : EAP EAP : GOT 
266 PRINT'PERDOL, M: ESPLOCE 

avg PRINT'ECORE "35 


to 
+= 





Er 


BRAUO 
SCORE à 7 $ 
+ 
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Course de voitures 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu de réflexe (1 joueur). 
Difficulté du jeu : moyenne. 


LE JEU : 

Vous circulez sur une route très sinueuse, ne comportant aucun obstacle, 
et vous devez essayer de la suivre de plus longtemps possible. La trace de 
votre parcours reste affichée en permanence, et votre score est affiché dès 
que vous avez un accident. 


LE PROGRAMME : 

L’impression de la route est assurée par la boucle I (89-199). 

La ligne 119 fait avancer la route, et la ligne 129 imprime la voiture. 

La ligne 159 contrôle son mouvement, et la ligne 169 détermine si la route 
fait ou non des virages. 

La ligne 179 regarde si l’on a touché le bord de la route. 

La ligne 189 incrémente le score, et la ligne 199 efface l’ancienne position 
de la voiture (une trace claire apparaît à l'emplacement de sa trajectoire). 
La ligne 229 affiche le temps avant l'accident. 


POUR JOUER : 

Lancer l’exécution du programme par l’ordre RUN, le dessin de la route 
commence à évoluer, et votre véhicule, représenté par une voiture, appa- 
raît. 

Pour le déplacer vers la droite ou vers la gauche, vous devrez utiliser les 
touches — et <— (flèches de déplacement du curseur). Il vous faudra éviter 
le plus longtemps possible de toucher une bordure noire, ce qui provoque- 
ra l’arrêt du programme et l'affichage de la mention ACCIDENT, suivie 
de l’indication sur le score réalisé. 

On pourra arrêter le déroulement de la partie à tout moment en pressant 
les touches CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut envisager de jouer à plusieurs, chacun son tour, en enregistrant 
le meilleur score. 

On peut aussi envisager d’élargir la piste, et de faire courir plusieurs voi- 
tures. 

On pourra aussi s’inspirer des jeux d’arcades qui sont particulièrement 
nombreux sur ce thème. 


REM COURSE GE ES dE 
DATA 12, 4%,63, 45,12, 45,63, 45 

FOR I=dégié To. 46863: RERO A:POKE T'A:MEËXT TI 
CRAN 6: INK 4: Og=CHRRE 255 


94 IF ‘142 OR 154 THEH PRIHT®Y+T 4: DS 

194 MEXT I 

114 PRINT 

1294 PLOTE.A,225 

136 FOR I=1 TO 14: AG=KEYS:T=T+4,1:1F A$="" THEM MEËT I 
148 C=E 

159 B=B-< A$=CHRSGC 9 1 0146 AG=CHRGC ES 1 

169 = +6 SHRMDE 12 AMD V<2S ec SERHDE 15 AND 335 
174 IF SCRHCB,A+11=127 THEM 214 

184 S=5+1 

194 FLOTC,A,:32 

244 GOT 4 

214 PRINT'ACCICENT . SCORE : "35: EXPLODE 

224 PRIHT:PRINT'TEMPE "3 IMTET 


ACCTOENT SCORE © 41 
TENFE 





201 


202 


Echecs 


REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : jeu de réflexion, pour deux joueurs. 


Difficulté du jeu : difficile. 
LE JEU : 


Le programme propose seulement à deux joueurs de disputer une partie 
en se servant de l’écran du téléviseur comme plateau de jeu. Il n’y a pas 
de contrôle de la validité des coups, mais seulement gestion de la position 
des pièces sur l’échiquier. Les pions et les pièces sont dessinés à l’aide des 
caractères graphiques GR$. La couleur permet de distinguer chaque camp. 


LE PROGRAMME : 

Les lignes 190 à 200 dessinent l’échiquier. Les lignes 219 et 220 définis- 
sent les conditions initiales, à l’aide d’un tableau : R (I, J) pour les codes 
des pièces. 

Les boucles emboîtées J (249-299) et I (250-280) dessinent les pièces. 
La ligne 320 permet l’entrée de la ligne et de la colonne de départ, avec 
contrôle en ligne 350. 

La ligne 370 permet d’entrer colonne et ligne d'arrivée. 

La ligne 409 note la nouvelle position. 

La ligne 419 assure le changement de joueur. 


POUR JOUER : 

On lance l’exécution par RUN. 

L’échiquier est dessiné, puis les pièces, et enfin l'inscription JOUEUR 
ROUGE suivie de DEPART (C et L) ; on entre la colonne et la ligne de 
départ, sous la forme E 7 par exemple, on obtient alors l'affichage de 
ARRIVEE (C et L) et on répond de même. Le déplacement est alors effec- 
tué, et c’est au tour de l’autre joueur. 

Pour arrêter, il suffit de taper CTRL et C. 


EXTENSIONS POSSIBLES : 

On pourra chercher à réaliser un graphisme plus précis, introduire le 
contrôle du mouvement des pièces. Et pourquoi pas, écrire un programme 
qui permette à l’'ORIC-ATMOS de se comporter en partenaire honorable. 
Bon courage ! 


19 REM ECHECS 


24 DATA4S.,45,63.63,12,39,39,63,12,12,39,20,12,39,33,39 

44 DATAG.12.39,63,63.39.12.63.5,31,59,63,6.6,63.63,0,0,6,0,6.6,4,û 

34 FOR 1=46856 TO 46911:READ A:POKE I,A:NEXT I 

64 PAPER 6:INK B:CLS 

74 B$=CHR&C 255 3+CHRSC 255 2+CHRSC 255 ) 

89 A$="PPP':CS="###": PRINT CHR&C17 2 

94 FOR I1=1 TO S:PRINTR2,2#1-1;:CHRSC27 +"I":HNEXT I 

194 PRINTEZ,9;" ñ B C D'ESF? ECS? 

119 FOR I=1 TO 8 

128 FOR J=1 TO & 

134 IF CI+J9/2=INTC(1+J)/29 THEH 159 

149 PRINTR3#.1+3,2#1-1,; AS: PRINTI :PRINTRS#J+3, 241: B$:PRINTRZK.I43,241+1:C$ 

154 IF 1=2 OR 1=7 THEN RCI,J3=4 

164 IF 1422 AND 147 THEN RCI,.1)=6 

174 CI,.13=9 

188 IF I=7 OR I1=8 THEN C(I,J3=128 

194 HEAT J 

264 MEXT I 

214 RO, 19=2:RC1,20=S:RC1,39=@:RC 1. 45=3:RC1,55=1: 
RC1,632=@G:RC1,73=5:RC1,89 322 

228 FOR I=1 TO 8:RCB,I)=RC1, IH: MEXT I 

239 H=i 

244 FOR J=1 TO 8 

254 FOR 1=1 TO & 

268 K=1+3#J:Y=2KI:IF RCI, Ji=6 THEN CCI..13=4 

274 PLOTA4+3,%,97+RCI,J3+CC 1,12 


289 MNEXT I 

299 NEXT .] 

399 PRINTR31,6;" M:PRINTR24.24:" ":PRINTB21,22;" ":PING 
319 PRINT®2.18::IF H=i THEN PRINT'JOUEUR ROUGE" ELSE PRINT"'JOUEUR BLANC" 
324 PRINTR2.,29; "DEPART €C ET Là :";:INPUT D$ 


338 PRINTO31,6;D$ 
349 GOSUB 599 


359 1F RL:C)=6 OR CCCL,C2=9 AND H=13 DR CCéL.C3=128 AND H=G) THEH 319 
368 T=RCL,Ca:SaCéL,Co:REL, C6 
379 PRINTR2,22;"ARRIVEE €C ET L) :";:INPUT D$ 


389 PRINTR34,6;"- ";DS$ 

294 GOSUBR 594 

498 RCL,C2D=T:C(L,C2=5 

419 H=ABSCH-1 2 

429 GOT 244 

599 L=YALÉ RIGHTS DS, 1 2 3: CEASCE LEFTSC DS, 1 31-64 
319 RETURN 


Le) 
Le 
— 


gr” 
L 2 
El - 


Li Ni 


Ê E° de 


© 0 Q°E- 
3 
Los] 


mE 


52 


6 
F 
g 


à 

* 

E1 
+ O 
Es] 

DO 

ra 

EI 


> 
a. 
E 


JOUEUR ELAHC 
DEPART ÉD ET Lio :% 
ARRILIEE CC ET Li: 
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Danger spatial 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu de réflexe, pour un joueur. 
Difficulté du jeu : moyenne. 


LE JEU : 

Vous êtes aux commandes d’un engin spatial qui vient de pénétrer dans 
un nuage de météorites. Vous devez essayer de franchir le nuage sans 
heurter une seule météorite. Votre score sera affiché en fin de partie, lorsque 
vous entrez en collision avec une météorite. 


LE PROGRAMME : 

La position de chaque météorite est déterminée par les lignes 69 et 89 ; 
elle est imprimée par les lignes 79 et 99. 

L’avance des météorites est réalisée par la ligne 190. 

Les lignes 190 et 119 vérifient si vous avez ou non heurté une météorite. 
La ligne 139 dessine votre vaisseau spatial, et la ligne 169 permet de le 
déplacer. 

Le compteur se trouve en ligne 170. 


POUR JOUER : 

Le jeu est lancé par l’ordre RUN. 

Votre vaisseau apparaît vers le milieu de l’écran, et les météorites viennent 
à votre rencontre en partant du bas de l’écran. Pour vous déplacer, vous 
pouvez utiliser les touches de déplacement horizontal (— et —). 

On peut arrêter la partie à tout moment en tapant CTRL et C. Sinon, le 
jeu s'arrête lorsque vous heurtez une météorite, et le score est alors affiché. 


EXTENSIONS POSSIBLES : 

Il serait intéressant de rendre le jeu de plus en plus difficile en faisant 
apparaître de plus en plus de météorites au fur et à mesure du déroulement 
de la partie. 

On peut aussi essayer de détruire les météorites en les pulvérisant au fur 
et à mesure de leur apparition. 


RENM CANGER SPATIAL 
DéeCHRGE SSS à 

PAPER 6: IHE 4 

CLS 

Hal: get: 
HETHTS FHDC 1 
IF EHOG 1: 
É=THTE FMC 
IF FHDé 1: 
FÉITHT:E 









LD CG TT CN Re igli me 


Pie Et 


2 
EH PRIHTEH. 25:06: 
E 


EH PRINT, ZE: DS 

1: CRSCRHC #41, 120 

er OR C=is7 THEH 194 

PRIHTIEY 1: 11: M PRINTES-1, 145" n 
IT de en 








D St 


CUJDAM£S 


36 PRIHT"LE SCORE EST GE "iZ2:EKXPLOCTE 


LE SCORE EST DE 124 


ASSCHRSE 9 AMD ER IRC ABECHRGE 1 AND KE 
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Tic tac toe 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion (deux joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

Un grand classique des jeux d’écoliers, proposé ici dans une version ne 
comportant pas le jeu machine ; chaque ; joueur devra placer à son tour un 
9 ou un X (ici un cœur ou un carreau) dans une case libre de la grille de 
Jeu, et le premier qui réussit un alignement de 3 symboles identiques a 
gagné (l'alignement peut être horizontal, vertical, ou suivant l’une des 
deux diagonales). 


LE PROGRAMME : 

Le terrain de jeu est dessiné à l’aide des boucles I (59-90) et J (69-90). 
La ligne 119 et J (69-99) s'occupe d'afficher le symbole cœur ou carreau 
correspondant au joueur qui a le trait. 

Un symbole clignotant (ligne 140) est affiché en haut et à gauche du 
terrain, même si la case est déjà occupée ; les lignes 189 et 199 permettent 
de déplacer le symbole sur le terrain de jeu. 

La ligne 209 vérifie si la case où l’on veut jouer est libre, et si l’on désire 
jouer. 

La ligne 219 affiche le coup, et la ligne 220 réalise le changement de 
Joueur. 


POUR JOUER : 

Le terrain de jeu sera affiché dès la frappe de RUN. 

Un symbole clignotant apparaît alors en haut et à gauche de l’écran ; le 
joueur peut le déplacer sur le terrain de jeu à l’aide des 4 flèches (touches 
—,— et T, 

Lorsqu'il arrive sur la case où il désire jouer, il suffit qu’il appuie sur la 
touche 9, le coup sera refusé si la case n’est pas libre. 

Si la case est libre, le symbole qui correspond à ce joueur est inscrit, et on 
change de joueur. 

Lorsque la partie est finie, il convient de taper CTRL et C pour sortir du 
programme. On pourra ensuite faire une autre partie avec RUN. 


EXTENSIONS POSSIBLES : 

On pourrait réaliser après chaque coup un contrôle pour vérifier si l’un 
des joueurs a gagné. On peut aussi réaliser un jeu machine mais il faudrait 
éviter qu'il soit par trop systématique (par exemple, la machine jouant 
toujours son premier coup sur la case centrale). 


16 


36 
4 


24 
64 
Fê 
84 


ie, 


36% 


bb bb job eh be 
BR Lo Fo me 
DS 


Milütifutiemerne 


Fe Co Pa ee 1 LD LG Ni CA 
D D GR RE 


REM TIC TAC TÔE 
DATA 4.:4,18.63.63,36.12,12.4,4.6,% 
FOR I= ee TO 46571: READ A:POKE TI 
PAPER 3:INE 1: DÉ=CHRSE 27 3: E$eC$+ "I FS= 
CLS : PRINT CHARGE 17 à 
FOR Ie TQ 12 STEP 4 
FOR Je TO 18 
PRIHTUI+S,.J-1:F$ 
IF Jé15 THEN PRINT, LéZÆINTC Led 33 FS:PRINTO, I+2# 
IHTE T4 +17 
MEAT QI'HEXT I 
ke 
PRIHTREZ, 28: CIQUEUR 3 CHR APE 
I=1:.J=1 
CeSCRME dET, GEI: DeSCRHE d'éT , EI 
FRINTÉAKIT I. 64m ES: 4 : 
PRINTE4#T" L'EAU ES: 
IF Cér32 THEN PLOT4#T. ÉkJ-2, Ci PLOITAXT, 64.3, D 
IF C=3? THEH PLOTA#ÆT. EX HE: PLOTAÆT EE GE 
AGS=KETS 
Je AECHRSE 160 AND IE + AE CHRSC 11 5 AND 21 
Iel-< AGeCHRSE SG 1 AMD TS et AReCHRRC ESS AMD T1 
IF Céiae OR A$<:"A" THEN 134 
PLOTA#T EEE, GP PLOT ET, GEI, A+ 
É=ABSC 129-K 3 
IF K=129 THEH FIHG ELSE £4F 
GOT 116 


JOUELR 
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Chenille 


REFERENCES : 


: Difficulté de programmation : difficile. 


208 


Catégorie de jeu : adresse. 
Difficulté du jeu : difficile. 


LE JEU : 

Il présente la particularié d’offrir plusieurs niveaux de jeu (3 tableaux) : 
une chenille se déplace très rapidement sur l'écran, en laissant une trace ; 
elle doit ramasser une certaine quantité d’objets en un temps limité, sans 
heurter les obstacles déterminés sur son parcours, et sans repasser sur sa 
propre trace ; le passage au deuxième tableau est réalisé à 2500 points, et 
le troisième tableau à 5000 points. Mais, on joue en temps limité, et il 
faudra être très rapide. 


LE PROGRAMME : 

La ligne 29 permet de représenter un petit personnage sur l’écran. 

La ligne 30 assure le passage en mode LORES, et utilise POKE pour 
accélérer l’action des touches (on pourra réutiliser avec profit ces POKE 
dans d’autres jeux). 

Les lignes 69 et 70 réalisent les changements de tableaux. 

La boucle I (89-119) dessine le terrain de jeu. 

Le déplacement du personnage est réalisé aux lignes 149 et 159. 

La ligne 169 contrôle la fin de partie. 

Les lignes 209 et 219 s’occupent du score, et la ligne 229 regarde si l’on 
dépasse le temps autorisé. 


POUR JOUER : 

On lance le programme par RUN. Le terrain de jeu se dessine, et un 
personnage apparaît au milieu de l’écran. 

On le déplace avec les flèches de direction —, —, Ÿ, | , en essayant de 
lui faire ramasser les objets nécessaires, sans toucher ni les obstacles, ni sa 
propre trace. 

Pour arrêter volontairement, il sera préférable de toucher un obstacle (pour 
restaurer les conditions normales de fonctionnement du curseur). 


EXTENSIONS POSSIBLES : 

On pourra augmenter le nombre de tableaux disponibles, modifier la dif- 
ficulté de chacun (en jouant, par exemple, sur le temps), modifier les 
décors … 


REM CHENILLE 
DATA 8,29,8,62,42,8,26,354:FOR 1=4685€6 
TO 46863:RERD A:POKE I'A:MEXT I 
LORES G:PAPER 9:INK 6:POKE#24E, 1: POKE#24F, 1 
H=9:U=@:P=9:F=17 :C&=eCHR&C 166 à 
A=19:B=13 
IF H=1 THEN F=18:CS$=CHR#C 223 
IF H=2 THEN F=19:C$=<CHRSc 164 
FOR I=G TO 3% 
PLOT IHTERHDE 1 2438+23, IHT£ RNDC 1 24223,F 
IF 1<22-28#CH=29 THEN PLOT INTCRANDI 1 3#38+20, 
INT€ RMDC 1 2#225,C$ 
MEXT I 
PLOTB,4.97 
REA :'Y=B : AGSKEYS 
A=A-< AS=CHREC 19) AND A<2Z +6 AG=CHRSC 112 AND 4245 
B=B-<A$=CHR$E 9) AND B<4G5+c AS=CHREE 85 AND E%25 
IF SCRHCB.A)=F OR SCRNCB,A3=23 THEN 259 


179 PRINTR2,9; "TEMPS ":W 
189 W=lj+1 
198 PLOT Y.:*x.23 


IF SCRHCB, AeASCC CG) THEM P=PF+199 
PRINT@26,4; "SCORE :":iP 


229 IF W=5399 THEN FRINT"'TEMPS ECOULE'":PIHG:MAIT 59:GO0T0 254 
234 IFP=2S4G0RP=S94ATHENHEH+1 : ZAP : ZAP : 


LORESA : P=2694-2044%4<H=2 ) : = : GOTOd@ 


248 GOTO 129 
259 PRINT"PERDU" : POKE#24E, 32 : POKE#24F , 4 : EXPLODE : END 


FEREIUI _. 


# 
3 
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Dames 


REFERENCES : 
Difficulté de programmation : très difficile. 
Catégorie de jeu : deux joueurs. 


Difficulté du jeu : difficile. 
LE JEU : 


C’est le jeu classique de dames à la française, mais un peu incomplet 
puisqu'il ne prévoit pas la possibilité de faire des dames. La règle du jeu 
reste classique, mais les contrôles ont été un peu simplifiés. Les mouve- 
ments des pièces sont entrés en une seule manœuvre (position de départ 
et direction du déplacement) et les prises sont réalisées automatiquement, 
si elles sont possibles. 

Par contre le changement de joueur étant réalisé à chaque coup, il faudra 
éventuellement taper Ÿ pour pouvoir rejouer s’il y avait eu saut ou si le 
coup n’était pas possible. 


LE PROGRAMME : 

Les boucles I (89-170) et J (99-169) dessinent le damier et définissent les 
positions initiales des pions noirs et des pions blancs. Les positions et les 
couleurs sont dans une table R (X, Y). 

L’impression des pions proprement dite est effectuée par les boucles em- 
boîtées J (199-250) et I (209-249). 

La ligne 279 indique le joueur qui a le trait. 

Le coup est entré en ligne 280. 

La ligne 299 réalise le changement de joueur (on tape 0). 

La ligne 319 regarde si le déplacement est possible. 

La ligne 349 traite le cas d’un déplacement et la ligne 350 celui d’un saut. 
La ligne 399 assure le changement de joueur. 


POUR JOUER : 

Dès le lancement du programme par RUN, le damier est affiché avec ses 
pions, et le texte apparaît en dessous pour indiquer que le trait appartient 
au joueur correspondant. 

On joue en indiquant par un mot de 3 lettres (pouvant commencer par un 
9) la ligne et la colonne de la pièce à déplacer, puis la direction du dépla- 
cement (codée de 1 à 4) suivant la convention : 


1 


, 
3 2 


Par exemple 9D1 signifie que le O situé en ligne 9, colonne D, se déplace 
dans la direction 1 (ne pas oublier de faire RETURN). 


De même 9G3 signifiera pion noir, ligne O, colonne G, direction 3. 


Le changement de joueur étant effectué automatiquement, il faudra taper 
Ô pour rejouer si le coup est refusé ou s’il y a eu prise (toujours terminer 
par RETURN). Le programme ne contrôle pas l’arrivée à dame, et n’in- 
terdit pas les déplacements en arrière. 


EXTENSIONS POSSIBLES : 

Il sera assez facile de commencer par améliorer les contrôles (changement 
de joueur, coup en arrière qui ne correspondrait pas à une prise, sortie de 
terrain). On pourra envisager la création de dames, leur déplacement, et 
éventuellement écrire un programme permettant à l’'ORIC-ATMOS de se 
mêler avec de bonnes chances de réussite à vos passionnantes parties. 
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REM CAMES 
CIM RC14, 142: CATA GG, H, 28,67 6262, 
FOR T=défssé TO 46863. READ A:POKE T'A:HEËT T 
E=CHRGE ES CHARGE TES CHERE EE 
PAPER €°IHE G:CLS 
AG= "PRE: CHEUHERIUS PRINT CHRS&C ALT 0 
FOR Ie1 TO 11: PRINT, SÆT-1: CHRGE EF MAOTIMEXT TI 
PRIHTEZ, 64: A: Be Le Dr, EU CE 06. eff, Te. 
FOR Izi TO 16 
FOR Ji TO 14 

IF CIHUJNSZeINTEC +21 THEH 1264 
PRINTRSE.IHS, SET -1: HS: PRIHTI-1: 
PRÉTHTESE.S, ZET 6%: PRINT, EXT 41: CS 

PET... lie 

IF (it? UNRare “£1 THEH 16 

IF &KS THEN RCT. enr 

1F$ de THEH FRCT, er te 

MEXT . 

HET I 

H=1 

FOR Je1 TO 1 

FOR I=i TO 16 

IF sI+lié ee 2INTES T4 st THEM dl 

HR. td : ET 

PLOTS ve Re Ti 

HET I 

MEXT .J 

PRIHTEZ,23:" ":24P 
PRIHTUZ, 22; MIOUEUR Mi:IF Hal 

THEH PÉTHT'HOITR " EL: SE FRTHT"'RQLUSE" 

PRINTEZ, 23: "COUP :"3: INPUT C$ 

IF Cé="4" THEH HeABSCH-1 5: GOT 264 

LeYALE LEFTSCDS, 1 5041 : CeASCC MIDSC DE, 7, 1 12-64: 
CALE RIGHTSE CS, 155 

IF RéL:Cie OR CREL,Cie97 

AND H=ë5 OR CRCL.Cie22S AND He1) THEM 26@ 
T=c1 AND CD=i OP De2ii-c1 AND (O4 OR De3) 
G=<1 AND €D=3 OR DeZii-c1 ANDCD=1 OR D=di 
IF RéL+S, C4T = 

THEH R£L, Cie: RCL+S, CAT ea ZX eg ï: GOT 334 
IF REL+S, CAT eg 128 #C Mel 5 

ANT RÉL4ZXS, CAZET 4 THEN 35FG 

GOTO 264 

RéL, Cie: RE L+S, CAT st: 

RÉLATXS, CAHBET 1e 9-1 ZE EC He 

GOT 13% 

H=ABS< H- 1: PING 

GOT 198 


Fu Fa 
La 


Quatre à quatre 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de Jeu : réflexion (un ou deux joueurs). 


Difficulté du jeu : difficile. 
LE JEU : 


Il pourra être pratiqué à un ou plusieurs joueurs. Dans les deux cas, le but 
est d'arriver à échanger les pions X avec les pions O ; si l’on joue en 
solitaire, cet échange devra être réalisé avec le moins de coups possible. 
Les pions sont déplacés alternativement en respectant les règles de dépla- 
cement du cavalier aux échecs ; il n’y a pas de prise, et on ne peut passer 
son tour. 


LE PROGRAMME : 

La variable alphanumérique A$, en ligne 59, contient la table des coups 
possibles (déplacement du cavalier). 

Les boucles I (79-110) et J (99-119) dessinent le terrain de jeu, et les 
positions de départ. 

La ligne 130 permet d’afficher O ou X, selon le joueur qui a le trait. 

La ligne 169 permet l'affichage du curseur clignotant (ici un pavé de 
couleur) qui indique sur quelle case on se trouve. 

Les lignes 199 et 200 permettent le déplacement du curseur. 

La ligne 219 regarde si l’on a appuyé sur une touche de 1 à 8, donnant la 
direction du déplacement. 


Les lignes 229 et 239 réimpriment la figure qui était sous le curseur. La 


ligne 249 transforme en nombre le symbole chiffre frappé. La ligne 250 
réalise le contrôle de départ. | 
Les lignes 269 et 270 effectuent le déplacement. La ligne 309 réalise le 
contrôle d’arrivée. Le résultat est imprimé par la ligne 319, le changement 
de joueur est réalisé par la ligne 329 et un . est imprimé à l’emplacement 
de départ. Le sous-programme 349-359 est utilisé pour les divers contrôles. 


POUR JOUER : 

On lance le programme par RUN. Le terrain de jeu est affiché, ainsi que 
le symbole permettant d'identifier le joueur qui a le trait. Le joueur peut 
choisir le pion qu’il désire déplacer en manœuvrant le curseur clignotant 
grâce aux touches de déplacement du curseur. 

Pour déplacer son pion, 1l suffit, lorsque le curseur est sur ce pion, de taper 
la direction du déplacement, suivant le code : 
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Le coup sera refusé si la case de départ n’est pas conforme ou si la case 
d'arrivée est occupée. Sinon, le coup est réalisé, et le trait passe à l’autre 
Joueur, qui déplace le curseur clignotant pour l’amener sur l’un des pions, 

et joue de la même façon. 

Le joueur gagnant est celui qui réussit à amener le premier, tous ses pions 
dans les cases initialement occupées par l’adversaire. On peut interrompre 
la partie à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 
On peut améliorer les contrôles, prévoir un test de fin, utiliser un terrain 
de jeu différent ; on pourra aussi envisager l'écriture d’un programme 


‘ permettant à l’ ORIC-ATMOS de participer au jeu avec de bonnes chances 
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de l’emporter. 


JOLELR 4 





REM QUATRE À QUATRE 
DATA 4,12,34,63.63.63,34,12:FOR I=46956T0468€3: READA: POKET.A:MNEXT I 
PAPER 6:INK 4:CLS:PRINTCHR& 17 5 
FOR 1=4 TO 24: PRINTCHRS(27 5; "J":MEXT I 
H=1:A$="5665322356" :PRINTRE, 1:"1 2 3 4 S":PRINTRÉ.2;"1 2 3 4 5" 
D$=CHR$S(C2552:FOR Is1 TO 29:FORJSITOIS:PRINT@4+J, 3+I;:D$S:NEXT J'NEAT I 
FORI=1T05: 18=<RIGHTSCSTREC I D, 12: PRINTEZ, 4#I+1: 1%: PRINTR3, 4#1+2:1% 
PRINTRE, 4#1+1:SPCC13 3: PRINTRE, 4#I+2;",  . 
FOR J=4 TO 1:IF1<3 THEN PLOT 6+3%4.J,4%1+1, 97: PLÔTE+3#.J, 4#x1+2.97 
IF 123 THEH PLOT 15+3%4.1, 4#1+1,216:PLOTIS5+3#.J,4#1+2,216 
MEXT JJ:MEXT I 
#K=1:Y=1:B$="JOUEUR " 
PRINTE22,13;B$:PRINTEZ2,14:B$:PLOT24,13,216-119#H:PLOT36.14,216-119%H 
GOSUR 349 
I=J 
PRIHTREXK+S, 4# +1; M: PRINTESKEA4S, #42: 
Ask :B=Y 
R$=KEYTS$ 
=Y-CRS=CHRSC 16) AND Y<S+CRE=CHRSE 112 AND “210 
Aeñ-C RÉ=CHREC 9) AND K<52+CRSECHRSC ES  AMND X24 5 
IF R#&<"9" AND R$>"G" THEN 249 
IF .J=97 THEN PLOT3#A+3, 4#B+1.97:PLOT2#A+3, 4#B+2,97:GOTO 134 
IFJSZLETHENPLOTE#A+3, 44 B+1,216: PLOT3#A+3, 4#B+2,216: GOT 134 
PLOT3#A+3, 4#E+2,46:GOTO 134 
IF CI=4£6i OR C1=97 AND H=@Gi OF C1=88 AND H=1 THEH 224 
J=VALCRS 
SeY Ve +VALCMIDSC AS, J, 1313-4 
Tax: am+VALEMIDSC AS, +2, 153 1-4 
IF #61 OR #25 OR Yi OR Y25 THEN Y=S:XeT:AST:B=S: JeZ16-119#H:GOT0 224 
GOSUE 34% 
IF Jé4é THEN 334 
PLOTA#K+3, d#y+1,216-1194H: PLOTIKK+3, d#y+2,216-119#H 
H=ABSCH-1 5: 1=1:FING 
GOTO 224 
JSÉCRNOGKA ES, 44 +25 
RETLURH 
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Anagrammes 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu de réflexe (2 joueurs). 
Difficulté du jeu : selon le niveau. 


LE JEU : 

Des lettres sont choisies au hasard par l’'ORIC-ATMOS, le nombre de 
lettres étant fonction du niveau de difficulté désiré. Puis les lettres du mot 
ainsi obtenu sont brouillées, et affichées au bas de l’écran ; un nouveau 
mot est alors confectionné, de façon aléatoire, à partir des mêmes lettres 
et il est affiché sous le premier, et ainsi de suite ; les deux joueurs (gauche 
et droit) disposent chacun d’une touche (1 ou @) et doivent la presser dès 
qu'ils voient s’afficher au bas de l’écran un mot déjà présent sur l’écran ; 
leur score est alors évalué, et un message correspondant à leur résultat 
sera délivré. 


LE PROGRAMME : 

Le niveau du jeu est entré à la ligne 49. La boucle I (89-100) réalise le 
choix des lettres. 

Une deuxième boucle I (129-199) effectue le brouillage, et la ligne 140 
permet de détecter la pression d’une touche. 

La ligne 200 affiche un nouveau mot, et fait monter d’une ligne sur l’écran 
les mots déjà obtenus. 

La ligne 249 cherche quel est celui des deux joueurs qui a pressé une 
touche. 

La boucle [ (259-329) explore les mots présents sur l'écran ligne par ligne, 
alors que la boucle J (279-300) saisit un par un les caractères de ces mots. 
On obtient ainsi un nouveau mot qui est comparé au mot initial en ligne 
310 et le résultat BRAVO apparaît si c’est exact. 

Sinon, la partie s’arrête sur l'affichage PERDU (ligne 330). 


POUR JOUER : 

On lance le programme par RUN. 

On devra ensuite entrer le niveau de difficulté (en principe de 1 à 3) et 
faire RETURN. Les mots s’affichent en partant du bas de l’écran, et mon- 
tent au fur et à mesure ; si l’un des joueurs croit reconnaître dans le mot 
qui apparaît un des mots déjà affichés, 1l devra immédiatement presser sa 
touche (1 ou Ÿ), et son résultat sera affiché après un court instant. 

La partie sera alors terminée. 


EXTENSIONS POSSIBLES : 

On pourra utiliser d’autres affichages que des mots, modifier les temps 
d’affichage, faire participer plus de deux joueurs, améliorer le son et la 
couleur, etc. 


RENM_ ANAGRAMMES 
PAPER 7:IHK 4 
CLS 
INPUT'NIVEAU € DE 1 A 3 3 :"3N 
IF Néi OR N>3 THEN 29 
PAPER @:CLS 
S$= un } 
FOR I=1 TO H+3 
S$=S$+CHRSC INTG RDC 1 3426465 2) 
NEXT I 
AS="" :B6=c$ 
FOR 1=1 TO LEW(SS) 
M= INTE RHDE 1 PHLEMC 58 41 ) 
D$=KEYS 
IF D$="1" OR D$="D" THEN 248 
IF MIDS#CBS,N,12="-" THEN 139 
A$=AS+M IDC ES, M, 1 2 
BS=LEFT$C ES, N-1 +"—"4RIGHTSC ES, LENCES 3-N 
NEXT I 
PLOT1 25, INTE RNDE 1 2K6+1 D): PRINTEZ, 25: A8: PRINT 


FOR 1=1 TO 2A#LEMCB@OI:HEAT I 

S$=A$ 

GOTO 114 

IF D$="1" THEN H$="JIOUEUR DE GAUCHE" 


ELSE H$="JOUEUR DE DROITE" 


250 FOR I1=4 TO 23 


314 


324 
334 





ES="" 
FOR Je2 TO LEMS$ +1 


R$=CHRSC SCRHNE I, I 95 

B$=E$+R$ 

HEXT J 

IF B$=5$ THEN PRIHNT@LEME S$ +6, TT; 
BRAVO , "ai H&:ZAP: ZAP : ZAP : EHD 

MEXT I 

PRINTOLENC 5% 3146, 24; "PERDU "HS: EXPLODE 


PEROU JOUEUR DE DROITE 
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Œutfs 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

Un oiseau mystérieux se déplace en battant des ailes au hasard sur l'écran. 
H pond des œufs (représentés par des O) que vous (un carré de couleur) 
devez essayer de récupérer. Votre score (nombre d'œufs récupérés) sera 
affiché en permanence, et la partie se déroule en un laps de temps défini. 


LE PROGRAMME : 

L'oiseau est dessiné en deux parties (pour le mouvement) aux lignes 79 et 
119 ; son déplacement aléatoire est géré par le sous-programme 219-300 
(en particulier les lignes 269 à 290). 

La ligne 130 permet de reboucler le programme sur la ligne 79. 


Le déplacement du joueur est régi par les lignes 159 et 169, et le test 
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permettant de détecter la présence d’un œuf est effectué en ligne 179. 
La ligne 199 permet l'affichage du score. 
La fin de jeu est détectée en ligne 230. 


POUR JOUER : 

On lancera le programme par RUN. 

L'oiseau commence alors à se déplacer au hasard sur l’écran, et se met à 
pondre ses œufs. Lorsque le symbole qui représente le joueur (un carré de 
couleur) apparaît sur l’écran, celui-ci peut se déplacer en utilisant les 4 
touches de déplacement. Il vous faut dès lors essayer de récupérer un 
maximum d'œufs avant la fin de la partie. 

On pourra arrêter de jouer à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

Sur le même principe, on pourra facilement imaginer d’autres thèmes de 
jeu. On pourra bien sûr améliorer la couleur, les sons, le graphisme, et 
éventuellement, définir un jeu à plusieurs joueurs, chacun essayant de 
récupérer un maximum d'œufs. 


REM OEUFS 
DATA G:12.39.63,63,63,394,12:D$=CHR&e ZT 
FOR I=46856 TO 46262:READ A:POKE LA:NEXT I 
D$=CHRSE 27 3401: ES=CHREGC 27 HUE: 
PAPER 3:INK S:PRINT CHR&(17) 
CLS :P=2648:R=18:5=14:T=4 

RE INTÉ RHD6 1 2436 3: Y=INTC RHDC 1 3421 à 
PRINTBX+2,%:0$:"{#3"3: ES 
FOR I=1 TO 34:A$=KETS$ 

IF A$="" THEN HEËT I ELSE GOSUE 14% 

GOSUB 214 

PRINTGK+2, 08; "=#=";Es 

GOSUB 219 

GOTO 74 

PRINTER+2,5;" " 

R=R-<AS=CHRSEC 9 AND RCGE D+c ASECHRSC ES AND R29 5 
S=5-< A$=CHRSC 14 AND S<21 +6 A&=CHESC 11 AND 5:65 
GESCRHER +2,50 

T=T-(Ge229 -< CGe9 7 4e 

PRINTRIS, 22: "SCÛRE :"iT 

RETURH 

Azk:B=Y:UAIT 16 

P=P-1 

IF P=@ THEN PRINT "C'EST FINI..." :EXPLODE : END 
PRINTOR+EZ, S; CHRSC 255 à 

PRINTOA+Z,B:" ":PLOTA+3.B,225: PRINTRA+4,E:" " 
REABSC A4+INTÉ 14+2#6 RDC 1 9,535 
Y=ABSCY+INTE 1+2#6 RNDC 1 30,5 335 

IF #236 THEM #=1 

IF 221 THEH Y=1 


A4 RETURN 





oi 


C'EST FINE: 
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Taquin de lettres 


REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion. 


Difficulté du jeu : difficile. 
LE JEU : 


Qui d’entre nous n’a pas, un jour ou l’autre, eu dans les mains un de ces 
petits puzzles où l’on essaie de déplacer d’une case à une autre des petits 
carrés de plastique colorés, jusqu’à l’obtention d’un résultat bien précis ? 
En son temps le 14-15 de SAM LOYD, a eu autant de succès que notre 
célèbre RUBIKS. 

Le taquin qui vous est proposé ici utilise 35 lettres, disposées au hasard 
dans un carré de 6 cases sur 6 cases, et ces lettres peuvent, replacées dans 
leur ordre initial, vous permettre de reconstituer un proverbe très connu. 
Une case coloriée vous permet de déplacer les lettres, et un compteur 
affiche en permanence le nombre d’essais : arriverez-vous à retrouver le 
proverbe ? 


LE PROGRAMME : 

La phrase à reconstituer (qui pourra bien sûr être modifiée) est placée 
dans une variable R$ en ligne 70. 

Le mélange des lettres et l’impression sont faits par la boucle I (89-159). 
La ligne 180 réalise l’affichage du carré coloré ; celui-ci est déplacé par 
les lignes 229 et 239 en utilisant les 4 flèches. 

Les lignes 249 et 259 réimpriment la lettre concernée à l'emplacement du 
carré coloré. 

La ligne 279 comptabilise le nombre d’essais, qui est imprimé grâce à la 


ligne 170. 


POUR JOUER : : 

On lance le programme par RUN. 

La partie sera évidemment d’autant plus difficile que l’on ne connaît pas 
le proverbe à reconstituer. On peut déplacer les lettres et les faire passer à 
l'emplacement du carré coloré, à l’aide des 4 touches de direction (—, +, 


PU 
Le nombre d’essais est affiché en permanence, à droite du puzzle. 
On peut arrêter à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

Le même principe peut être appliqué à toutes sortes de taquins (manipu- 
lation de nombres, de couleurs, de sons éventuellement). On peut aussi 
prévoir plusieurs phrases, avec un choix effectué par un générateur aléa- 
toire, etc. 


BEN TAGUIH CE LETTRES 
PAPERE : THÉ: CLE: PRINT CHR&C 17 
FOR I=1 TO 1 
PRIHTEA,T: CHARGE ZT MR M CHRSGE ET si NU" 
MEXT TI 
A$= nn 
Rg= "OMASOQUVENTÉESCOT HE LINPLUSPETITOUESCT" 
ns Ie TO SE 
= IMTE FHD 1 © 
CE MT Ce Ré, 4, 1° 
AB=AG+NMT DRE RE. 6, 12 
F$eLEFT#CRS, Het 34" HART CHERE RS, LEHE Fes 01 
A F=ASCE MISE AE, T, 115 
4 PLOTI-RHIMTÉ T6 té, THTE TR SF 
NEAT I 


DS 





$ 


DD NJMNNBErTU RS 


es 
ni 


THEH fi 


mp 
Fa es 


re 
Æ Lo 
AE) 






PRINTEZ 
à PRINTRHEE  V45: 

TÉ=<KE SE 

IF Tés"" THEM PRINTOH4E.V+35" GOT 159 





ÉLUS 
IF I=# st 
Get : PIHG 
A GOT 154 










ZAP FAP FAP: GOTO ER 


HOMERE D'ESSAIS : 27 
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Cibles 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : hasard. 

Difficulté du jeu : facile. 


LE JEU : 

Il consiste simplement à tirer sur des cibles, en essayant de marquer le 
maximum de points ; le nombre de cibles (de 1 à 6) sera choisi en début 
de partie, et le score réalisé sera affiché en permanence. Si l’on touche le 
bord d’une cible, la partie s'arrête. On marquera d’autant plus de points 
que le nombre sur lequel on tombe sera plus grand. 


LE PROGRAMME : 

Le nombre de cibles est entré en ligne 59. La boucle I (89-190) effectue 
l'impression des cibles. 

La ligne 129 affichera le score en permanence. 

La balle est affichée par la ligne 130. 

La boucle I (159-299) réalise l'impression des chiffres contenus dans les 
cibles, et permet le déplacement de la boule (ligne 199). 

La ligne 229 regarde si l’on a tiré, et la ligne 239 regarde si la boule est 
encore sur la ligne de départ. 

La ligne 249 fait progresser la boule d’une case vers la droite, et la ligne 
259 vérifie si l’on a ou non atteint les cibles ; puis les lignes 2609 et 270 
regardent ce que l’on a touché. 

La ligne 289 incrémente le score. 

Les lignes 299 et 309 s’occupent de la fin de partie. 


POUR JOUER : 

Lancer le programme par RUN, et taper le nombre de cibles désirées suivi 
de RETURN. Les cibles s’affichent, et la partie commence. Votre balle, 
représentée par un O est affichée en bas à gauche ; vous pouvez la déplacer 
avec les flèches haut et bas (touches Ÿ et | ), et vous pouvez tirer à tout 
moment en tapant Ÿ. 

Le score sera modifié en fonction de votre résultat, et une nouvelle balle 
apparaît. Il est possible d’arrêter à tout moment en tapant CTRL et C, 
sinon le jeu s’arrête au bout d’un certain nombre de tirs. 


EXTENSIONS POSSIBLES : 

On pourra sans difficulté augmenter le nombre de cibles, modifier la règle 
d'apparition des nombres dans les cibles pour la rendre moins hasardeuse, 
s'arranger pour que la balle elle-même soit représentée par un chiffre qui 
devrait coincider à l’arrivée avec celui de la cible. 


194 
119 
124 
139 
144 
159 
169 
179 
184 
196 
244 
214 
229 
234 
244 
2538 
268 
era 
284 
299 
394 
314 


REM CIBLES 


D$=CHRSC 27 2: ES=DS$+"I": PRINT CHR$C 175 


DATA 9,12,39,63,63,63,30,12:FOR I=46856 TO 46863:READ À 


POKE IA:NEXT I 


PRINT: INPUT'NOMBRE DE CIBLES 


P=19:.J=:39:S29:B=1 
76 PAPER 3:INK 1:CLS 
84 FOR I=1 TO N 
PRINT @J-1,3#1-1:E8;"//0":PRINTRJ+1,3XI:E$;"J": 
PRINT@J-1,3#4I+1:E8: "NT 


NEXT I 

K=3:A=18 
PRINTR2,29:D8 ; "BSCORE 
PRINTOK-1,A:0$;"E";CHR$&C 97 2 
Def 

FOR I=1 TO H 

UE IMTE RHDC 1 KP 2 


PLOTJ.3%#1,0+176 


A$=KEYS$ 


t"3M 


AeA-< AGECHRSEE 100) +0 AGSCHRSE 11 15 


NEXT I 
PRINT@K-1,D:" 


IF A$="G"THEH B=B+1:SHOÛT :GOTO 249 


IF Ke3 THEN 139 


KækK+1 


IF K<J THEN 138 


CaSCRHCK,AD:IF C 


IF C<48 OR C?57 THEH 
SeS+C-48 : ZAP : ZAP : ZAP 


P=P-1 


IF Ps@ THEH PING:EMC 


GOTO 114 


C+125 THEH 


SCÛRE : 


19 


— BALLE : 


CzC-128 
PRIHT"'PERDU,. 


LIST DALLE. 1515 


. "*EXPLODE : END 
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Gouttes 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : dessin. 

Difficulté du jeu : aucune. 


LE JEU : 

C’est un véritable programme de dessin animé que l’on peut considérer, 
en fait, comme un interlude ; un récipient est dessiné sur l’écran, vu en 
coupe, et il contient déjà des obstacles. Une goutte d’eau, symbolisée par 
un rond gris, apparaît au-dessus du récipient et tombe en remplissant le 
récipient au fur et à mesure. Sa trajectoire, lorsqu'elle rencontre un obs- 
tacle, est entièrement déterminée par le hasard : elle part à droite ou à 
gauche, jusqu’à ce qu’il n’y ait plus aucune possibilité. Alors, une autre 
goutte tombe, et ainsi de suite, jusqu’au débordement final. 


LE PROGRAMME : 

Les deux boucles emboîtées I (59-139) et J (69-129) dessinent le récipient 
et les obstacles. 

La ligne 170 dessine la goutte et la ligne 219 envoie dans un sous-pro- 
gramme (370-390) qui permet de déterminer s’il y a ou non rencontre 
avec un obstacle. 

Si c’est non, ou va en 299, et la goutte continue de tomber. 

Si c’est oui, la goutte part à droite ou à gauche (ligne 230) selon la valeur 
définie pour K en ligne 159. 

On regarde de nouveau s’il y a ou non obstacle, ou si la goutte peut conti- 
nuer à tomber (lignes 249, 250 ou 260). 

Selon le résultat du test, on utilisera 270, 299, 310 ou 344. 


POUR JOUER : 

Le RUN déclenche le dessin du récipient et des obstacles, la goutte appa- 
raît, se met à tomber et finit par se trouver une place. Une autre goutte 
apparaît et l’on recommence. 

Le programme s’arrête de lui-même lorsque le récipient déborde ; on peut 
l'arrêter à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut, bien entendu, ajouter la couleur et le son et aussi envisager un 
jeu dans lequel un petit personnage devrait échapper aux gouttes ou à la 
noyade. 


14 REM GOUTTES 

24 DATA 4,28,62,127,127,127,62,28:FOR 1=46956 TO 46863:READ À 
:POKET A:NEAT I 

34 LORES 4 

44 INK 1:PAPER 4 

38 FOR 1=11, TO 24 

€ FOR J=1 TO 16 

84 PLOT .J+2,29,18 

34 IF I1=11 THEN MEXT I 

194 IF 1<>29 THEN PLOT .J+2,1,19 

119 IF 14224 AND RHDC13<4.7 THEN PLOT IHTCRNDG15#15+33, 7,21 

124 HEXT J 

139 NEXT I 

144 Y=INTÉRHDE 1 547460: x26 

159 K=-2%#(RHD( 1 3<4,5 5-1 

169 1=4 

179 PLOTY.XK,225 

189 AIT 3% 

134 PLOTY,%x.16 

208 U=k+1:V=Y 

214 GOSUB 374 

224 IF .J=4 THEM 2 

239 U=4:V=Y+K 

244 GOSUE 374 

254 IF J=G THEN 316 

264 IF I=4 THEH 34% 

274 PLOTY.:#, 225 

z84 GOTO 144 

298 #=x+1 

344 GOTO 154 

314 Y=%+K 

324 I=1 

339 GOTO 174 

344 K=-K 

354 1=1 

364 GOTO 239 

374 C=SCRMHCY, UC 16AND Cé! 

384 IF U=24 THEH PRINTRI8.15:"C" 

398 IF J=@ THEH PING 

494 RETURH 


10 
& 


195 
EST FINI...":E#PLODE : ENG 


HEAR NN NES 
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Obstacles 


REFERENCES : 

Difficulté de programmation : assez difficile. 
Catégorie de jeu : jeu de réflexe (pour un joueur). 
Difficulté du jeu : moyenne. 


LE JEU : 

Des piétons se déplacent sur l’écran pour venir à la rencontre d’une petite 
voiture qui dispose de la possibilité de se déplacer vers la gauche ou vers 
la droite pour les éviter et qui devra tenir le plus longtemps possible. 

La distance parcourue sera affichée en permanence, et le jeu se termine 
lorsque la voiture rencontre, soit le bord du terrain, soit un piéton. 


LE PROGRAMME : 

La ligne 89 fait avancer les piétons vers la voiture du joueur qui est im- 
primée grâce à la ligne 70. 

Les lignes 89, 99, 109 fabriquent la route (les lignes 99 et 199 bien qu’i- 
dentiques sont toutes deux indispensables, car la valeur de RND ne sera, 
en principe, pas la même sur ces deux lignes). 

La ligne 129 affiche le score. 

La ligne 140 permettra de déplacer le véhicule. 

Les lignes 159 et 169 permettent de contrôler s’il y a ou non un obstacle 
et arrêtent le programme s’il y a lieu. 

Le score est incrémenté en ligne 170. 


POUR JOUER : 

On lance le programme en tapant RUN. 

La route et les piétons apparaissent en bas de l’écran et montent vers la 
voiture. La voiture peut se déplacer à l’aide des flèches de déplacement 
horizontal (touches — et <—). 

La rencontre avec un piéton ou la bordure interrompt le déroulement du 
programme et provoque l’affichage du score. 

On peut, cependant, sortir du programme à tout moment en utilisant les 


touches CTRL et C. 
EXTENSIONS POSSIBLES : 


Il sera assez facile d'améliorer le dessin de la voiture, de la route, des 
piétons. On pourra améliorer le son et la couleur, admettre un certain 
nombre d’accidents, enregistrer le meilleur score (pour plusieurs joueurs), 
éventuellement dessiner plusieurs voitures, etc. 


Ji ni BR 'iüfus 
1 


ht 1j 
D it 


= 


REM CESTACLES 

DATA 45.551,45, 12,45.51,45, An de 
FÜR Iedéssé T( AEEF1 : FEAC A:PÛEÉE TS A:MEST T 
PAPER G:IHE SPRINT CHR&6 7; 

LORES 4 

Seg fes 
PRINTEY-1,2: CHARS 27 55 AT CHESC 97 53 CHR SE 35 PE: 
PLOT Y,1,32 

PRINTEZ, 25: CHRGE US +" PACHRGE SES à 


RTE! 


IF RH 136,7 THEH FLOT IHTE RD 1 #85 1. 25,98 
IF RHDC 136,8 THEH PLOT IHTERHOC A ESS 1, 25, 96 


PRINT :PRINT:PRINTRIS, 53" " 
PRIHTRIF, 63 PSCÛRE UE 


G AG=KEYS 


= A$EC AS a AND SEAT té ABECHRGE ES AND VE 
CeSCENE TT, 

IF Cage be Ce127 THEH EXPLOCE : FHD 

RER +1 


1 GOTO ra 
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Captures dans l’espace 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexe (1 seul joueur). 
Difficulté du jeu : moyenne. 


LE JEU : 

Votre vaisseau spatial navigue dans un dangereux champ de météorites et 
votre mission est de vous emparer de la plus grande quantité possible de 
minérai d’urane, un métal indispensable que l’on ne peut trouver que dans 
ces lieux particulièrement dangereux. 

Vous devez arriver à manœuvrer pour recueillir l’urane, sans vous faire 
heurter par une météorite. 


LE PROGRAMME : 

La ligne 79 permet de faire apparaître les météorites. 

La ligne 99 fera apparaître le minerai d’urane et la ligne 109 assure leur 
déplacement sur l'écran. 

Les lignes119 à 139 contrôlent le déroulement du jeu (a-t-on heurté une 
météorite ou a-t-on capturé un bloc d’urane). 

La rencontre d’une météorite provoque la fin de partie. 

Votre vaisseau spatial est imprimé par les lignes 149 et 159 et son dépla- 
cement est contrôlé par la ligne 170. 


POUR JOUER : 

On lance le programme par RUN et les météorites commencent à monter 
sur l’écran, ainsi que les blocs d’urane. 

Les touches de déplacement horizontal (— et <—) seront utilisées pour 
déplacer votre vaisseau et récupérer l’urane, mais le moindre heurt avec 
une météorite provoquera la fin de la partie et l’affichage de la quantité 
d’urane capturée. 

On pourra aussi arrêter à tout moment en tapant CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut rendre le jeu de plus en plus difficile en augmentant progressi- 
vement le nombre de météorites, ou encore, en minutant la durée de la 
partie. 

On peut aussi prévoir un affichage permanent du score, introduire un 
deuxième vaisseau spatial manœuvré par une puissance étrangère et qui 
cherche aussi à s’emparer de l’urane. 


14 FEM CAHPTURES CA 

24 DATA 4.4.8,:5,54 
REC A:POKÉE T4 iT I 

34 PAPEF a INF Z:PRIHT CHEGC 1 

di LORES 

Si #S1S | 

SA SeINTE sa LOESEHE 

FE PLOTS, sn 16 

Be LNTE FD L'IKSEHE 

CIF RHDOIE A1 LERG, F THEH FLOTS 2, LE 

WAIT 3: PRINTÉS , AU PRINT 

CesCRHE x. 127 

IF Cei2r THEM PEIHTUSCORE CETENL "5x: 

EXPLOCE : EH 

IF Celes THEM Eef4+l: EF 

PRINT 1, 113" " 

PRINT T1, 1 CHR 1 PAU CHR QE 3 CARE EE NS MEN 

AG<ÉE""S 

eee AG CHR NS ANT ER te ABC MRE En AND ee 

GOT 6 


HS L'ESPACE 
ZE: FOR IrdéfSé TO 46RES: 


DES 
“s 


ji 


ee pe Li it 
Fo ee ES 
4 
— 


Di it 


me mm 
D TJ Ts CA Le Lo 
it 


y — 
=; ; 
DE Ë 


SCORE OETEHU 
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Anomalie 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

Il repose essentiellement sur une bonne capacité d’observation. Deux grilles 
de 25 cases chacune sont dessinées sur l’écran. Des symboles identiques 
sont affichés en des endroits différents des deux grilles, mais l’un des 
symboles a été modifié sur la grille de droite. Le jeu consiste à trouver 
lequel, en entrant ses coordonnées dans l’ordre ligne-colonne. 


LE PROGRAMME : 

La boucle I (59-89) imprime les chiffres de repérage des grilles. 

La boucle principale I (99-150) imprime les symboles des deux grilles, 
dans un ordre différent. 

La ligne 199 choisit le caractère à imprimer. 

Le sous-programme (1900-1940) s’occupe de faire l’impression à un em- 
placement libre (on l’appelle deux fois pour les deux grilles). 

Les lignes 160 et 179 changent, de façon aléatoire, l’un des caractères. 
Les coordonnées du point essayé sont entrées aux lignes 180 et 199, et le 
contrôle est effectué par les lignes 200 et 210. 

Les lignes 229 et 230 s'occupent de l’affichage du résultat. 


POUR JOUER : 

Après avoir lancé le programme par l'instruction RUN, on devra attendre 
un certain temps avant d’obtenir l’affichage des deux grilles. On devra 
alors chercher, par comparaison, quel est le caractère qui a été modifié 
(sur la grille de droite). 

On entre alors son numéro de ligne, suivi de RETURN, et son numéro de 
colonne, suivi de RETURN. 

Le programme répondra alors BRAVO ou PERDU. 


EXTENSIONS POSSIBLES : 

Il sera possible d’utiliser des symboles graphiques de diverses couleurs, ce 
qui pourra simplifier la recherche. 

On peut aussi envisager d’utiliser des dessins plus sophistiqués, améliorer 
le contrôle du résultat, admettre la bonne réponse sur la grille de droite ou 
celle de gauche, introduire un minutage, etc. 


19 REM ANOMALIE 
28 PAPER 3 
34 INK 3 
44 CLS:PRINT CHR$C 173: T=5S 
SA FOR I=1 TO 5 
ER PRINTR2#I+5, @: L'PRINTRZ,2#1:1 
78 PRINTO2#1+21, 0: 1:PRINTRZA, XI: I 
89 MEXT I 
39 FOR I=1 TO 22 
199 D=INTÉ 26#RHD6 1 +1 : 
119 LeZ:6eT 
24 GOSUE 1948 
134 L=11 
143 GOSUE 1946 
154 HEXT I 
164 S=@: INK 1 
174 GOSUE 190 
184 PING: PRINT, 16; "LIGNE... "5: INPUT I 
198 PRIMT : INPUT"COLOMHE, . . :"iT 
204 UR2#I :V=ZkT+28 
214 C=SCRHE V42, 5 
284 IF D+6d=C THEN PRINT'ERAVO, .." ELSE FRINT'PERDU" 
234 PRINT:PRINT'LA LETTRE A TROUVER ETAIT ": 
CHR D+6d à: ZAR : ZAP : ZAP : END 


Y 


AGE Lake LHTÉ RHDC 1 DT +1 55e Me BEINTE RMDC 1 HE4L 
1914 CeSCRHEV42, 15 

1426 IF C<>22 AND S<>9 THEH 198 

1836 PRINTBU+Z, Li CHR 6440) 

144% RETURH 


UT Tu 


Le. 


Z 


LIGHE 
COLONHE ...:7 2 
BRALIO . .. 


LA LETTRE À TROULER ETAIT F 
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Plusieurs en un 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : deux joueurs. 

Difficulté du jeu : variable, selon l’utilisation. 


LE JEU : 

Plusieurs jeux sont en réalité possibles avec ce programme qui va se 
comporter comme un crayon électronique vous permettant d'inscrire des 
symboles O ou X, en n’importe quel emplacement de votre feuille-écran 
de télévision. On pourra, par exemple, l'utiliser pour un jeu de morpion 
(le premier à réaliser un alignement de 5 pions identiques gagne) ou pour 
un GO (on réalise des encadrements des pions adverses) ou tout autre jeu, 
selon son imagination. 


LE PROGRAMME : 

Le changement de joueur est effectué par la ligne 50. 

Le joueur qui a le trait voit le symbole qu’il a choisi (O ou X) se placer en 
limite du cadre (ligne 70). 

Les lignes 190 et 119 permettent aux deux joueurs de déplacer le symbole 
sur le terrain. 

Les lignes 139 et 149 contrôlent si le déplacement est possible (case libre 
et non dépassement des limites). 

La ligne 190 permet d'écrire sur une case libre. 


POUR JOUER : 

RUN provoque l’affichage des limites du terrain et du numéro du joueur, 
ainsi que des symboles correspondants (O ou X) que l’on devra déplacer 
sur l’écran à l’aide des 4 touches de direction (—, «+, |, Î ). 

Il n’est pas possible de venir sur une case déjà occupée et il faudra appuyer 
sur la touche Ÿ pour inscrire son propre symbole dans une case disponible. 
Dès que cela a été fait, le symbole du second joueur apparaît dans la 
colonne de gauche, à peu près au milieu, et le joueur procédera de la même 
manière que son adversaire. 

Pour sortir du programme, il suffira de taper CTRL et C. 


EXTENSIONS POSSIBLES : 

On pourra utiliser l’écran tout entier comme terrain de jeu et réaliser des 
contrôles en fonction des différents jeux que l’on désire pratiquer : contrôle 
d’alignements de 5 pièces pour le morpion, contrôle du nombre de pièces 
capturées pour le GO. 


FREM PLUSIEURS EH LH 
PAPER 6:IHK 4 
CLS 
J=6 
JeABSE J-1 5 
#=12:"24 
PLOT +2, PAL EC el 1 
A$=KEYS:IF A$="" THEH 84 
Azx: Be 
fané AG=CHRSEC 195 AND KE 24 4e ASECHRSE 112 AND #54 
Ve AS=CHRSEE 905 AND VEGAS CHRSE St AND 511 
PLOTE+Z. 4.32 
CaSCRHE 42, 40 
IF Cé:r9 AND Cé2216 THEN 164 
#=A:"=8 
FOR Ie1 TO 14:A$=<KETS$ 
IF A%="" THEH MEXT I 
IF A$<:"G" OR “Y<9 THEH FH 
PLOT' 42, 4, FALSE Is 1 1 
IF JG THEH FIHG ELSE ZAF 
GOT 54 
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Parcours du cavalier 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : difficile. 


LE JEU : 

Il se présente, ici, comme un jeu de hasard total, mais provient, en réalité, 
d’un problème assez difficile à résoudre : comment déplacer un cavalier 
sur un échiquier de façon qu'il passe une fois, et une seule, sur chacune 
des 64 cases du damier. 

Le cavalier se déplace suivant les règles communément admises aux échecs, 
et sa position de départ est définie par le joueur ; par contre, ses déplace- 
ments sont effectués au hasard. Arrivera-t-il à parcourir les 64 cases ? 


LE PROGRAMME : 

La ligne 60, définit les divers déplacements possibles, dans deux variables 
alphanumériques A$ et B$ ; la boucle I (79-190) dessine le terrain de jeu. 
On entre les coordonnées de la case de départ (ligne, puis colonne) aux 
lignes 119 et 120. 

La ligne 149 imprime le numéro du coup. 

La ligne 150 permet le tirage au hasard d’un déplacement du cavalier. 
La boucle Z (169-219) cherche si le déplacement est possible ; si ce n’est 
pas le cas, on essaie tous les autres (toujours dans le même ordre). 

Les lignes 179 et 189 effectuent le déplacement. 

La ligne 199 contrôle que l’on ne sorte pas du terrain de jeu. 

La ligne 209 envoie en ligne 239 si le coup est possible. 

La ligne 229 gère la fin de partie (cavalier bloqué) et affiche le score. 

Les lignes 230, 240 et 259 réalisent le coup et incrémentent le score. 


POUR JOUER : 

On lance le programme par l’ordre RUN. Le terrain de jeu s’affiche ; on 
choisit alors la position de départ en tapant d’abord un numéro de ligne 
(entre 1 et 8), suivi de RETURN puis son numéro de colonne, suivi de 
RETURN. Le jeu commence immédiatement et il se déroule de façon en- 
tièrement automatique jusqu’à ce que le cavalier soit bloqué. On peut, 
bien sûr, arrêter à tout moment par CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut imaginer de nombreuses variantes sur ce thème, ne serait-ce qu’en 
commençant par faire varier la taille des échiquiers, on peut aussi amélio- 
rer considérablement le graphisme. Mais, le plus intéressant est d’arriver 
à définir un algorithme donnant la ou les solutions du problème initial... 


1 
it 
LEA, 


REM PARCOURS OÙ CAVALIER 
24 CLS 
30 FAFER € 


Far aN : BÉaNE RES A AEANES"  AÉEAGHAË 
FOR I=i TO & 
PRINHTOS#T+3. 4:17 
PRINTES, 2#TiIi" . .  ., à y à , 

HEAT I 

PRIHTEZ. 18: "LIGNE DE CEPFART :"3:THPLUT T 
PRIHT:IHPUT'COLONNE CE CEFART :"3.1 

IF &24 THEN Sef:TET+1 

PLOTAX. 144, PET. SAHIPESIF T4 THEH PLOTÉEJMSS ET, T4IPE 
L=IHTE RMC 1 K8+ 1 

FOR 2=2 TO 2+8 

A=]I+VALÉMIDSEE AS, Z. 1 11-4 

Es. J+WALE MID ES, Z, 15 1-d 

IF AS1 OR E£1 OR A8 
IF SCRHÉ EEE + A, HA IRdE 
HEXT € 
PRINTRES, 163 "TOTAL 2 TETAES : EPLOCE : EHC 
I=A:.IE 

Ses+1:ZAP 

GOTO 1384 


RE EE TER ET EE TEL EX) 


RÉEL EN) 


"4 
A, 


214 





Mi Pan Pa a Pres et Pet Det et pet pet bob dt dt LE GR ef 1 2 a 1 


CA 8 io Fo ee D OU JM CN Bi 
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CR 1 
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4 3 #9 #2 IR IC! 

Œ A1 3 it 

M 4] . . . HW 
LIGNE DE CEFART :5 3 TOTAL : 35 
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Mur de briques 


REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexe (pour 1 joueur). 


Difficulté du jeu : difficile. 
LE JEU : 


S'il est un jeu que l’on peut présenter comme un grand classique des jeux 
d’arcades pour micro-ordinateur, c’est bien le mur de briques (en anglais 
BREAKOUT). 

Il est offert, ici, dans une version simplifiée, mais offre néanmoins de 
bonnes performances : affichage du score en fin de partie, rebonds aléa- 
toires, etc. 

La règle en est très élémentaire : vous disposez d’une raquette qui peut 
être déplacée horizontalement pour renvoyer une balle (matérialisée par 
un point) qui va démolir les briques dessinées en haut de l’écran. 

Votre problème est d’en démolir le plus grand nombre possible, sans rater 
la balle, ce qui provoquerait la fin de partie et l’affichage du score. 


LE PROGRAMME : 

La boucle I (50-80) dessine le terrain de jeu et les briques sont mises en 
place par les boucles emboîtées I (99-130) et J (190-120). 

La ligne 159 dessine la raquette dont la position est contrôlée par la ligne 
170. 

Les lignes 220 à 250 regardent si l’on a touché le mur, les briques ou la 
raquette. 

Les rebonds sont gérés en conséquence avec des éventuels aléas, par les 
lignes 260 et 300. 


La ligne 199 affiche le score en permanence. 


POUR JOUER : 

Le programme sera lancé par l'instruction RUN, ce qui provoque l’affi- 
chage du terrain de jeu puis, très rapidement, l’envoi de la balle. Le joueur 
devra alors essayer de déplacer sa raquette à l’aide des touches de dépla- 
cement horizontal ( — et <—). 

Si, à un moment quelconque, sa balle ne touche pas la raquette, le score 
sera affiché et la partie s’arrête. 

On peut aussi terminer à tout moment par CTRL et C. 


EXTENSIONS POSSIBLES : 

On peut envisager d'agrandir le terrain de jeu, d'augmenter le nombre de 
briques, de prévoir plusieurs balles, d’introduire des effets sonores. 

On peut aussi, en s'inspirant des jeux d’arcades, introduire de petits ou- 
vriers qui viendront reconstruire votre mur de briques, au fur et à mesure 
que vous le démolissez. 


14 REM MUR DE BRIGQUES 

29 Dé=CHRS$Ee2SS 0: PRINT CHARGE 1F 

34 PAPER 6:IHE 4 

4 CLS 

54 FOR Izi TO 1% 

EA FRINTES4+TI.D:0S 

FA PRINTRIG. LiDS:FPRINTRZ7, TiDS 

84 MEAT I 

34 FOR Izi TO 7 

A FOR .Is11 TO ZE 

4 FLOTJ,T.163 

A HEXT .J 

A HEXT I 

mike, ei: Teir ie. 

4 FRIMTE" f-8,19;" zzx ! 

FH AS<KEYSÉ 

A ‘fee AfECHREE Gt AND EEE ee ABSCHRSE 8 1 AMD NE 
AG IF Tzl THEH FLOTTE 

A PRIHTRE, 24: "SCORE "is 

A IF I:22 THEN EXPLODE:GET A$:GOTO 3 

A I=I+H:.Je.tE 

A CeSCRNE LT 
A IF C2 THEM F1 
A IF C=127 THEN 2866 

A IF Ceiés THEH FLOT.L I. Fac Tel : GOT SEE 
4 Hz-H 

ÉRRHDE 1 ROC 1 

Eaki: Tes 

GSOATO 154 

Gec+ A: Z2AF 

d Ka Ki EE RMC 1 EE, EL CE RHOIE À es 
24 H=-H 

34 GOT 15 


Le 


î GS Fos pe pe pe pen pb De pe pb pt 
D UN BH PO EIDD JUNE LU FI DS 


ITS PA Tel GOT LE 








3 Pi Po FF 
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Othello 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : difficile. 


LE JEU : 

Devenu un grand classique des jeux sur micro-ordinateur, le jeu d’Othello 
ou Reversi gagne, même si, comme ici, il est pratiqué à deux joueurs, à 
être géré sur ordinateur, avec visualisation : en effet, le jeu consistant 
essentiellement en des retournements des pions de l'adversaire, ceci peut 
se révéler, à la longue, très fastidieux, surtout si vous êtes un joueur assidu. 
Le principe est que le joueur possédant les X doit pour pouvoir jouer, 
réussir à encadrer une ou plusieurs des pièces de son adversaire, dans une 
ou plusieurs directions ; s’il y réussit, les O seront alors retournés pour 
devenir des X (le retournement pourra être fait horizontalement, vertica- 
lement ou suivant les diagonales). - 
Le joueur ayant les O procédera de la même façon, et ceci jusqu’à ce que 
le damier soit rempli ou que la personne ne puisse plus jouer (si un joueur 
ne peut retourner des pions, il doit passer son tour). 


LE PROGRAMME : 

Les boucles emboîtées P (59-129) et Q (79-119) dessinent le terrain de 
Jeu et la ligne 149 affiche un X ou un O, selon le joueur qui commence. 
La boucle P (290-329) contrôle la validité du coup (la case est-elle libre : 
lignes 309 et 319), en utilisant une partie de programme qui se trouve aux 
lignes 369 à 429 (a-t-on pris un ou plusieurs ennemis en ligne 369 et 
retournement éventuel autorisé par la ligne 389 : on refait un balayage 
dans toutes les directions, si l’encadrement s’est révélé possible). 

La ligne 209 définit les 8 directions d’exploration. 

Les lignes 249 et 259 calculent les déplacements à effectuer pour explorer 
ces 8 directions. 

La ligne 239 réalise les déplacements. 

La ligne 349 assure le changement de joueur, s’il y a eu retournement 
(contrôlé en ligne 330). 


POUR JOUER : 

Après RUN, chaque joueur entrera à son tour les coordonnées (ligne, RE- 
TURN, puis colonne, RETURN) de la case où il désire jouer ; si le coup 
est accepté, les pions sont retournés et l’on change de joueur ; si un coup 
n’est pas possible, on entre Ÿ en première coordonnée pour le changement 
de joueur. 


EXTENSIONS POSSIBLES : 

Avant tout, bien sûr, améliorer l’affichage avec des couleurs, une grille 
plus aérée. 

On pourra aussi imaginer un jeu machine pour l'ORIC-ATMOS. 

Après avoir lancé le programme par RUN, il convient d’entrer la dimen- 


sion de la grille (4, RETURN ou 6, 8 ..). 


Cn 


2 
3 
4 
ni] 


Gym 


15863724 
FAIRE 6 - RETURH - POUR COHTIHUERT 
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14 
2 
ei 


FE OTHELLO 
INPUT"'OIMENSION DE LA GRILLE "3H 
IF ASE SINTOH-Z 3 THEH FLIH 


44 PAPER &:IME d'CLE: PRINT CHE 1 2 
34 FOR Feil TO 4 


EE 
F4 


Lt 10 
ini 


146 


114 
16 
1:68 
144 


Fo Fo FO Fo lu fifi nnenmis 


Po Fi 


QG Hi A Re et Pa mu 1 0 NS Qi CN Re Co PQ ee En LD O0 JS Qi cf 
Ro D Oo mi D 0 St O9 9 it 


où Lo CO Co LU Le Lo Lu Lu 


>: 
D 
ut) 


ant 
415 
424 


PRINTOZ#P+2, 0: RIGHTS STRSCP D, 12 
FOR G=1 TO A 
PRINT, SP: RIGHTS STRECP D, 1: PRIHTEZ#OZ, P#Pi tt 
IF G=A/2+1 AND PeA/2 THEN PLOTSKG, Z4P, 79 
PLOTS#OXZ, HP, 216 

IF G=f/2+1 AND Pef-2+1 THEN PLOTE#O ZYP, 216: 

PLOT2KOXE, ZXP, 79 

MEXT © 

MEXT PF 

K=1 

PRINTR23,6;"JOUEUR ":1F K=1 THEM PLOT 31,6,216 

ELSE PLOT 31,6: 79:PING 

PRIHTR31.8:" ":PRINTRZ1. 14: " L 

PRINTR23, 8: "LIGNE <"3: INPUT L 

IF Le THEH 34% 

PRIHTR23, 19: "COLOMHE : "; : IHPUT % 

H=1 

FOR P=i TO & 

c=4 

H=g 

TaZkl:Re2#y 

=CP>3 AND Pé7)-CP<3 OR P372 


Ge Pi AHD PéSic Poe 
Gedé-1FAxé Sel STE SE 


IF S=G THEH 296 

PLOTR4+S, T0 

TET+SHF : ReR+s# 

CESCRHER4Z Ti 

IF CeFS OR Cez1é THEH 366 

NEXT F 

IF Hé THEH 144 

ABS K-1 5 

GOTO 149 

IF CCera AND KelORECeZ16 AND KeG9 THEH Wz1 
IF 5634 THEN PLOTR#Z ST, 

IF Hal ANDCCCSFS AND Kai OR CSZ1E AND Ksñi5i 
THEH 2964 

IF WeG OR S<%G THEM 324 

S=i-CKkego 

H=-H#6 = 

GOTO 224 
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Enseigner et distraire est le double objectif de cet ouvrage. 
Ces 102 programmes de jeux vous entraînent à la 
découverte de l'ORIC-ATMOS. 
La classification par niveau de ces programmes 
vous permet d'acquérir progressivement des connaissances 
nouvelles et une plus grande maîtrise du Basic. 
Pour chaque niveau, la description des jeux proposés 
est suivie d'un programme abondamiment commenté 


Le dernier niveau constitue une illustration claire 
de l'utilisation du Basic étendu. 
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POUR VOTRE 


ORDINATEUR ® 



















et d'un exemple d'utilisation. | és 


ISBN 2.86595.179.0 


! IVNGID 2INU2ANOD I | 


. 








ZM PROGRAMMES POUR ORIC-ATMOS 





